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PREFACE 


This manual describes the SDL/UPL programming language. The manual is divided into 11 sections 
and 4 appendixes. Each is briefly described as follows: 


Section Contents 


1 INTRODUCTION 
Provides a brief introduction to the SDL/UPL language 
and compiler. Lists the related documents and describes 
the notation and syntax conventions used in this manual. 


2 FUNDAMENTALS OF THE LANGUAGE 
Defines the valid characters, identifiers, literals, 
constants, and data types allowed in an SDL/UPL source 
program. The use of comments in an SDL/UPL source 
program is also described. 


3 STRUCTURE OF AN SDL/UPL PROGRAM 
Describes the structure of an SDL/UPL source program. 


4 DECLARATIONS 
Describes the use of declarations in an SDL/UPL source 
program. This includes simple, structured, dynamic, 
paged array, file, switch__file, and reference 
declarations. 


5 DEFINES 
Describes the use of defines in an SDL/UPL source program. 


6 EXPRESSIONS 
Describes the use of expressions in an SDL/UPL 
source program. This includes unary, arithmetic, 
relational, logical, conditional expression, and 
replacement operators and their order of precedence. 


7 PROCEDURES 
Describes the use of procedures in an SDL/UPL source 
program. This includes the use of parameters and the 
type option in procedures, procedure invocations, and 
forward procedure declarations. 


8 STATEMENTS 
Describes the valid statements allowed in an SDL/UPL 
program. 

9 VERBS 
Describes the use of the verbs in an SDL/UPL source 
program. 

10 COMPILER OPTIONS AND PASSES 
Describes the options, conditional compilation 
modes, and the passes of the SDL/UPL compiler 


11 HOW TO WRITE AN SDL/UPL PROGRAM 
Describes the writing rules and form of an SDL/UPL 
program. Also, example programs are provided. 
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Section | Contents 


A SPECIAL AND RESERVED WORDS 
Lists the SDL and UPL reserved and special words. 


B THE SDL ENVIRONMENT 
Describes the SDL program environment. 


C SDL/UPL SYNTAX REFERENCE GUIDE 
Contains all the railroad syntax diagrams for all 
the SDL/UPL declarations and verbs. 


D GLOSSARY OF COMMONLY USED TERMS AND ACRONYMS 
Describes the terras and acronyms used throughout 
this manual. 
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SECTION 1 
INTRODUCTION 


The Burroughs B 1000 computer system is a small, general-purpose computer system. The B 1000 dif- 
fers from other computer systems in that it is dynamically microprogrammable and is designed to sup- 
port many independent special-purpose machine architectures, rather than one general-purpose architec- 
ture. 


Each particular machine architecture is realized on a microprogrammable B 1000 processor by means 
of multiprogrammed interpreters. The general philosophy of the B 1000 computer system is that each 
language that runs on the machine has its own interpreter. For example, the B 1000 computer system 
can be a ‘SCOBOL machine,”’ a ‘‘SFORTRAN machine,’’ a ‘SBASIC machine,’”’ an ‘‘RPG machine,’’ 
and. so forth. 


To permit this flexibility, a language (along with its interpreter) was designed to be used for implemen- 
tation of the Master Control Program (MCP), the various compilers, the Network Definition Language 
(NDL), the Data Management System (DMSII), and all the utility programs. This language is called 
the Software Development Language (SDL). 


SDL is tailored to the B 1000 computer system and provides access to all machine features. Use of 
some of the SDL verbs requires that the programmer have intricate ‘‘state of the art’’ knowledge of 
the B 1000 system. These verbs are used exclusively for system software development. Therefore, the 
User Programming Language (UPL) was created to provide the flexibility of SDL without any of the 
potentially dangerous verbs. Throughout the remainder of this manual the term ‘‘SDL/UPL”’ is used 
to imply both the SDL and UPL compilers and languages. The terms ‘‘SDL’’ and ‘‘UPL’’ are used 
to refer to the respective compiler or language. 

UPL is a high-level, problem-oriented language that allows sophisticated computer programs to be writ- 
ten with relative ease. The flexibility of UPL makes it a powerful programming tool for the system 


user as well as the system designer. The language can increase programmer productivity and can make 
the solution of complex problems easier. The resultant software reflects this increased productivity. 


RELATED DOCUMENTS 

The following documents are referenced in this document: 
B 1000 Systems System Software Operation Guide, Volume 1, form number 1108982. 
B 1800/B 1700 Systems System Software Operation Guide, Volume 2, form number 1108966. 
B 1000 Systems SORT Reference Manual, form number 1090594. 

NOTATION CONVENTIONS 

Left and Right Broken Brackets (<>) 


Left and right broken bracket characters are used to enclose letters and digits which are supplied by 
the user. The letters and digits can represent a variable, a number, a file name, or a command. 


Example: 
<job #>AX<command> 
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AT SIGN (@) 


The at sign (@) character is used to enclose hexadecimal information. 
Example: 


aF3a is the hexacecifv#at recresentation of the EBCDIC 
character 3- 


The @ character is also used to enclose binary or hexadecimal information when the initial @ character 
is followed by a (1) or (4), respectively. 


Examples: 


aCLILL11C011a9 16 the binary representation of the EBCDIC 
character 3. 


aC4)F 33 is the hexadecimal reoresentation of the EBCDIC 


character 5. 


SYNTAX CONVENTIONS 
Railroad diagrams show how syntactically valid statements can be constructed. 


Traversing a railroad diagram from left to right, or in the direction of the arrow heads, and adhering 
to the limits illustrated by bridges will produce a syntactically valid statement. Continuation from one 
line of a diagram to another is represented by a right arrow (—) appearing at the end of the current 
line and beginning of the next line. The complete syntax diagram is terminated by a vertical bar (|). 


Items contained in broken brackets (< >) are syntactic variables which are further defined, or require 
the user to supply the requested information. 


Upper-case items must appear literally. Minimum abbreviations of upper-case items are underlined. 


<bridges > 
<loops > ————— 


<optional items > 


—— A RAILROAD DIAGRAM CONSISTS OF 


<required items > 


>—— AND IS TERMINATED BY A VERTICAL BAR. —————TYTYH-W-VlLTHLlNWJaJY<_ | 
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The following syntactically valid statements may be constructed from the above diagram: 


A RAILROAD DIAGRAM CONSISTS OF <bridges> AND IS TERMINATED BY A VERTI- 
CAL BAR. 


A RAILROAD DIAGRAM CONSISTS OF <optional items> AND IS TERMINATED BY A 
VERTICAL BAR. 


A RAILROAD DIAGRAM CONSISTS OF <bridges>, <loops> AND IS TERMINATED BY 
A VERTICAL BAR. 


A RAILROAD DIAGRAM CONSISTS OF <optional items>, <required items>, <bridges>, 
<loops> AND IS TERMINATED BY A VERTICAL BAR. 


Required Items 


No alternate path through the railroad diagram exists for required items or required punctuation. 


Example: 


—- REQUIRED ITEM > 


Optional Items 


Items shown as a vertical list indicate that the user must make a choice of the items specified. An 
empty path through the list allows the optional item to be absent. 


Example: 


—— REQUIRED ITEM SS SS SS SS 
— <optional item-1 > — 
<optional item-2 > 


The following valid statements may be constructed from the preceding diagram: 
REQUIRED ITEM 
REQUIRED ITEM <optional item-1> 
REQUIRED ITEM <optional item-2> 
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Loops 


A loop is a recurrent path through a railroad diagram and has the following general format: 


a bridge > ———________-——_. ‘return character > —— 
<object of the loop > ee eee 


Example: 


1 


<optional item-1 > I 
<optional item-2 > |, 
The following statements can be constructed from the railroad diagram in the example. 

<optional item-1> 

<optional item-2> 

<optional item-1>,<optional item-1> 

<optional item-1>,<optional item-2> 

<optional item-2>,< optional item-1 > 

<optional item-2>,<optional item-2> 


A <loop> must be traversed in the direction of the arrow heads, and the limits specified by bridges 
cannot be exceeded. 
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Bridges 


A bridge indicates the minimum or maximum number of times a path may be traversed in a railroad 
diagram. 


There are two forms of <bridges>. 


ey nk eee n is an integer which specifies the maximum number of times the path may be tra- 
versed. 
23 e Ve n is an integer which specifies the minimum number of times the path must be tra- 
versed. 
Example: 


<optional item-1 > EEE EERE 


a ee <optional item-2 > 


The loop may be traversed a maximum of two times; however, the path for <optional item-2> must 
be traversed at least one time. 


The following statements can be constructed from the railroad diagram in the example. 
<optional item-2> 
<optional item-1>,<optional item-2> 
<optional item-2>,<optional item-2>,< optional item-1> 


<optional item-2>,< optional item-2>,< optional item-2> 
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SECTION 2 
FUNDAMENTALS OF THE LANGUAGE 


The SDL/UPL language is a problem-solving oriented language which requires a series of functions 
and constructs that differ significantly from most other problem-oriented languages. The following is 
a list of the most common differences. 

¢ Powerful bit and character-string functions. 


e Binary-only arithmetic functions. 


No JUMP or GO TO instruction. 

e Re-entrant programs (B 1000 computer system characteristic) 
e Recursive procedures (subroutines). 

e Scope of identifiers contained within procedures. 

e Dynamic storage allocation for identifiers at execution time. 


All programs that are written in the SDL/UPL source language must be processed by the SDL/UPL 
compiler. The SDL/UPL compiler transforms the source statements into a virtual machine form called 
the S-Machine language. Refer to Appendix B for a description of the S-Machine. The S-Machine lan- 
guage is then executed interpretively by a set of micro-instruction routines (firmware). 


SDL/UPL PROPERTIES 


An SDL/UPL program has a distinct pattern or format that specifies the relative locations of the two 
statement types, declaration and executable. Declaration statements provide the information that is 
needed to allocate storage or link together various elements of a program. Executable statements 
specify the functions or transformations that occur upon the contents in storage. 


Statements are composed of symbols that, in turn, are composed of letters, digits, and special charac- 
ters. Symbol strings are called operands, operators, or control functions. The SDL/UPL syntax is con- 
cerned with the correct creation of symbol strings and the relative placement of the strings to form 
declarative and executable statements. 


SDL/UPL PROGRAM FORMAT 


SDL/UPL programs are segmented into logical subdivisions called procedures. Each procedure begins 
with a head statement and terminates with an end statement. Procedures have a definite relationship 
to other procedures within a program, either side-by-side (parallel) or subordinate (nested). This order- 
ing inherently defines the scope of each procedure and the range over which a procedure can call (or 
be called by) another procedure. 


All procedures have a rigid internal structure. The procedure structure is as follows: the data declara- 


tions appear first, all nested procedures appear second, and all executable statements appear last. 
Nested procedure structures must be identical. 


1137833 2-1 


B 1000 Systems SDL/UPL Reference Manual 
Fundamentals of the Language 


SDL/UPL SOURCE FILE RECORD FORMAT 
The format of a source file record to the SDL/UPL compiler consists of the following information. 


1. Columns 1 through 72 contain the SDL/UPL statements, declarations, or comments. 
2. Columns 73 through 80 contain the sequence number of the source file record. 


CHARACTER SET 


The following characters are allowed in an SDL/UPL source program. 


Letters ABCDEFGHIJKLMNOPQRSTUVWXYZ 
abcdefghijkl mnopqrstuvwxyz 

Digits 0123456789 

Special poe EP SS ee 

Characters @ # ‘° %?7?$&.- __ | (space) 


The collating sequence for letters, digits, and special characters is based on standard EBCDIC represen- 
tation. 


Table 2-1 shows the function of each symbol that is used in an SDL/UPL program. 


Table 2-1. Use of Punctuation Symbols in an SDL/UPL Program 


Symbol Definition Use 
a= Underscore Concatenation within identifier names 
Period Concatenation within identifier names 

for record structures and field 
selection 

; Comma Separator for items 

; Semicolon Delimiter for statements 

( Left parenthesis Enclose parameter lists and array 


subscripts (leading) 


) Right parenthesis Enclose parameter lists and array 


subscripts (trailing) 


“ Quotation mark Left and right character string 
delimiter 
# Number sign Left and right define text string 


Space or blank 
At sign 
Exclamation mark 


Colon, equal sign 


delimiter 
Identifier delimiter 
Bit string delimiter 


Assignment or replacement (delete 
left) 


Assignment or replacement (delete 
left) 
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Table 2-1. Use of Punctuation Symbols in an SDL/UPL Program (Cont) 


Symbol Definition 


Use 


= Colon, colon, equal sign Replacement (delete right) operator 


% Percent sign 
j* Virgule, asterisk 
*/ Asterisk, virgule 


$ Dollar sign 


& Ampersand 


[ Left Bracket 


] Right Bracket 


symbol 

Remainder of record is a comment 
Beginning of comment 

End of comment 


In position one of a source record, 
indicates a compiler control option 


In position one of a source record, 
indicates a conditional source record 
inclusion control statement 


Enclose the record key and cospatial 
fields of records (leading) 


Enclose the record key and cospatial 
fields of records (trailing) 


+ Plus sign Addition operator 
- Minus sign Subtraction operator 
Virgule Division operator 
Asterisk Multiplication operator 
= Equal sign Equal relation operator 
P= Virgule, equal sign Not equal relation operator 
> Greater than sign Greater than relation operator 
>= Greater than, equal sign Greater than or equal relation 
operator 
< Less than sign Less than relation operator 
<= Less than, equal sign Less than or equal relation operator 
IDENTIFIERS 


An identifier is a defined name which is a symbolic representation for a location in memory. Identifiers 
are often called data names and field names in other computer languages. 


An identifier must begin with a letter. 
An identifier cannot contain blanks. 
An identifier can contain a maximum of 64 characters. 


Reserved words cannot be used as identifiers. Reserved words in SDL/UPL are listed in Appendix A. 
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Special words are used for segment and [)O-group identifiers and do not lose their special significance 
in SDL/UPL. Special words lose their special significance when defined as identifiers. When defined 
at lexicographic (lexic) level 0, they lose their significance throughout the entire program. Defined at 
any higher level, they lose their significance within the procedure in which they are defined. Special 
words in SDL/UPL are listed in Appendix A. 


Identifiers must contain exactly the same letters in the same case (upper or lower) to be identical. The 
identifier THIS__ONE differs from the identifier this__one. 


The railroad syntax diagrams of both SDL and UPL are presented. 


SDL and UPL Syntax: 


63 


<letter> — $$ $$$$_____________} 


<digit> — 


—— <letter> 


Syntax Semantics: 


letter 
This field can be any valid letter defined in the SDL/UPL character set. 


digit 
This field can be any valid digit defined in the SDL/UPL character set. 


The underscore (__) character can be used to concatenate groups of letters and digits. 
ARRAY IDENTIFIERS 


An array identifier is a defined name which is a symbolic representation for a number of contiguous 
locations in memory that correspond to each element within the array. 


SDL and UPL Syntax: 


<identifier> (<subscript> ) cr 


Semantics: 


identifier 
This field can be any valid SDL/UPL identifier and specifies the name of the array. 


subscript 
This field can be any valid SDL/UPL expression that returns a binary value and specifies the 
element within the array. The elements in an array begin with 0 and end with n—1, where n is 
the total number of elements declared for the array. 
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Examples: 


AC1Q) % References element 10 of array identifier A. 


ARKAY (G) % References element O of array identifier ARRAY. 


DATA TYPES 


All data used in an SDL/UPL program must be declared and allocated storage space. There are four 
different data types allowed in an SDL/UPL program: FIXED, BIT, CHARACTER, or RECORD. 
These data types, or a combination of them, are used to define all data used in an SDL/UPL program. 


FIXED 


The FIXED data field is a signed, 24-bit field. The leftmost bit is the sign bit. If the sign bit is 1, 
the field is negative. If the sign bit is 0, the field is positive. Negative numbers are represented in two’s 
complement notation. 


Examples: 


41 a€4)0000014 


AC 1LIDOCVOCOOCCCOODOCCOGCINCIONGLa 
“2 = G@CLILILILILILILLALILTILILILLLd = aC FFFFFF 


410 = aClLIOCOVODQONDCNOVNVOVNNVGOLOLOI = AC4)O00000AD 


ui 


=1:0 QCLIALLLLLLLLLILLLLLLLLLLOL1INO’ = aC 4)FFFFF 6a 
The numbers 1 and 4 enclosed in parentheses denote binary and hexadecimal representations, respec- 
tively. 


The FIXED data field is the basic computational form in the SDL/UPL program. The values for a 
FIXED data field can range from — (2 EXP 23) to (2 EXP 23)—1 [— 8,388,608 to 8,388,607]. Arithme- 
tic overflow is ignored. 


BIT 


A BIT data field can be any variable-length string of bits. The maximum length for a string of bits 
in an SDL/UPL program is 65,535 bits. 


When used in arithmetic computations, bit data is treated as a 24-bit, unsigned number. Values can 
range between 0 and (2 EXP 24)—1 (16,777,215). If a BIT data field is the target field of an arithmetic 
computation and the field is greater than 24 bits in length, only the rightmost 24 bits are used. The 
resulting leftmost bit is not interpreted as a sign bit. Prior to any arithmetic operation on BIT data 
fields, the data is right-aligned and zero-filled on the left. 


Examples: 


§€1)9111000a 
aCldla 
aC LIQODVOODOONNVNONNODOOVOOONLIL1<e = IAC4IOOVOOFa = 15 
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CHARACTER 


A CHARACTER data field can contain any variable-length string of characters. Each variable-length 
string is represented by an 8-bit EBCDIC code. The maximum number of characters allowed in a 
CHARACTER data field is 8191 characters. 


If a CHARACTER data field is used in an arithmetic operation, the following must be noted. 


e The binary value of the CHARACTER data field is used. Blank characters are represented as 
@(1)01000000@ or @(4)40@ which is not the same as the binary representation of the number 
zero. 


e Only the rightmost 24 bits of a CHARACTER data field are used in an arithmetic operation. 


The results of CHARACTER-to-CHARACTER operations are aligned on the left and the blank fill 
or truncate operations are aligned on the right. CHARACTER-to-BIT or CHARACTER-to-FIXED 
arithmetic operations align the data on the right and the zero-fill or truncate operations align the data 
on the left. 


Most input/output operations treat their operands as CHARACTER data and thus follow the rules 
of CHARACTER-to-CHARACTER operations. 


RECORD 


A record is an addressing template. Declaration of the record causes no data space to be allocated. 
The declaration only establishes an addressing scheme in the scope of the declaration. 


Specifying a record declaration is done by using the RECORD keyword in the declarations. Refer to 
RECORDS DECLARATIONS in Section 5 for a complete description of declaring a record. 


CONVERSION BETWEEN DATA TYPES 


The conversion verbs CONVERT, BINARY, and DECIMAL transform data from one data type to 
another. When the value of a number is to be written in a readable form, the DECIMAL verb should 
be used. 


VALUES AND ADDRESSES OF VARIABLES 


An identifier is a symbolic reference to the value at a memory address associated with a type and length 
attribute. A reference to an identifier is always a reference to the value at the address associated with 
the identifier when the identifier appears to the right of an assignment or replacement operator within 
an expression. 


When an identifier appears to the left of an assignment or replacement operator, the reference is to 
the address of the identifier. To force references to the value rather than the address of an identifier, 
enclose the identifier within parentheses. 


The identifier is considered a target identifier because its memory address receives the value generated 
when the expression on the right of that operator is evaluated. 


Literals, operator expressions, and keyword expressions cannot be used as target identifiers because 
they generate values rather than addresses. 


The verbs which can be used as target identifiers are SUBBIT and SUBSTR. 
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LITERALS 


A literal is an item of data which contains a value identical to the characters being described. There 
are three classes of literals in an SDL/UPL source program: numeric, bit strings, and character strings. 


Numeric Literal 


A numeric literal represents an integer value and cannot be the designation identifier of an assignment 
operation. 


Numeric literals cannot exceed a value of 16,777,215. 


Imbedded blank characters are not allowed. 


SDL and UPL Syntax: 


Syntax Semantics: 


+ 
The plus sign (+) character makes the numeric literal a positive number. 


The minus sign (—) character makes the numeric literal a negative number. 


digit 
This field can be any valid digit that is in the SDL/UPL character set. 


Examples: 


12345 

807 
~27 
+32 


Bit-String Literal 

A bit-string literal can be a combination of hexadecimal, octal, quartal, and binary digits. The bit- 
string literal is delimited by the at sign (@) character. A number from 1 to 4 enclosed within parenthe- 
ses designates the base integer system. 


Imbedded blank characters are not allowed. 
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SDL and UPL Syntax: 


oe ern 
pe ee 
ae anne ae 


quartal-digits> 


(1) a ee 


Syntax Semantics: 


The at sign (@) character is used to delimit the bit string. 


(4), (3), (2), () 
The numbers enclosed within parentheses specify that the following digits are hexadecimal (hex), 
octal, quartal, and binary digits, respectively. 


hex-digits 
This field can be any of the hexadecimal digits 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, A, B, C, D, E, or 
F. 


octal-digits 
This field can be any of the octal digits 0, 1, 2, 3, 4, 5, 6, or 7. 


quartal-digits 
This field can be any of the quartal digits 0, 1, 2, or 3. 


binary-digits 
This field can be either of the binary digits 0 or 1. 


Examples: 
aC 4) BEEF a % Hexadecimal bit string and vatue equals 48879. 
aCAFEG % Hexnadecinal bit string and value equals 51966. 
aC3)/6546 z Octat bit string and the vatue equals 4012. 
a€2)5210¢8 Z% Quartal bit string and the value equals 228. 
@€1)10101010a % Hinary bit string and the vatue equats 170. 


B 1000 Systems SDL/UPL Reference Manual 
Fundamentals of the Language 


Character-String Literal 


A character-string literal can be any combination of EBCDIC characters enclosed within quotation 
mark (‘‘) characters. Character-string literals must be completely described to the SDL/UPL compiler 


in one source record. 


Character-string literals can be concatenated with others by using the CAT operator to build larger 
character-string literals. The maximum length of a character-string literal is 256 characters. 


Example of an invalid split of a character-string literal: 


Fecord n oo AB 
Record ntl: > ame Cam Sama 


n represents the retative record nunber of a source file record. 


Example of a valid split of a character-string literal: 


Record n oo FAB. 
Fecord nett: Cat © Ye? 


n represents tne retative record nunber of a source file recorde 


The string concatenator operator CAT must be used to enter long character literals. If the CAT 
operator is used, the compiler treats the literal as a single string. 


Two adjacent quotation mark (‘‘) characters must be used to include a quotation mark (‘‘) character 
within the character string. 


SDL and UPL Syntax: 


ee eg sll 
=" <EBCDIC-character> —————— 7 —— 


Syntax Semantics: 


6¢ 


The quotation mark (‘‘) character is used to delimit the character string. 


EBCDIC-character 
This field can be any valid character defined in the SDL/UPL character set. 


Examples: 


"ABCT@DEF™ yields ABC™DEF 
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MISCELLANEOUS CONSTANTS 


The following keywords represent values that are compiled into the SDL/UPL program as constants. 


HEX_SEQGUENCE_NUMBER 
SEWUENCE_NUMBER 
TODAYS_DATE 


HEX__SEQUENCE__.NUMBER 
The constant HEX._SEQUENCE__NUMBER represents a bit string of eight (hex) digits. This bit 
string is the sequence field, columns 73-80 of the source image, in the source file in which 


the HEX_SEQUENCE__NUMBER keyword appears. If this sequence field is blank, 
HEX_SEQUENCE__NUMBER is @00000000@. 


Example: 


If the current source image line sequence number is 12753000, then on this line: 
HEX_SEWUENCE_ NUMBER = €127530009 


SEQUENCE NUMBER 


The constant SEQUENCE__NUMBER represents a character string of eight characters. This character 
string is the sequence field, columns 73-80 of the source image, in the source file in which the 
SEQUENCE__NUMBER keyword appears. If this sequence field is blank, SEQUENCE_.NUMBER is 
00000000. 


Example: 


If the current source image line sequence number is 12753000, then on this line: 
SEQUENCE NUMBER = 127535000 


TODAYS__DATE 


The constant TODAYS__DATE represerits the date and time of compilation of the SDL/UPL pro- 
gram. It is the same as the date and time which appears at the top of the SDL/UPL program listing. 
The TODAYS__DATE constant is a character string with the format MM/DD/YY hh:mm, where MM 
represents the month, DD represents the day, YY represents the year, hh represents the hour, and mm 
represents the minutes of the compile. 


COMMENTS 


Comments are allowed in SDL/UPL programs and have no effect on program execution. There are 
two forms of comments. These are: 


1. The enclosed comment, which must be enclosed within the virgule (/) and asterisk (*) character 


pair. 
2. The end-of-record comment, which is preceded by the percent sign (%) character. 
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Enclosed Comment 


The enclosed comment begins with a virgule-asterisk (/*) character pair and ends with an asterisk-vir- 
gule (*/) character pair. When the virgule-asterisk (/*) pair is encountered, the SDL/UPL compiler 
continues scanning the current source-image record until the asterisk-virgule (*/) pair is found. If the 
current source-image record does not have the ending asterisk-virgule (*/) character pair, the SDL/UPL 
compiler scans the next and subsequent source file records until the ending asterisk-virgule (*/) is 
found. 


SDL and UPL Syntax: 


Se <comment-text> * / SS 


Syntax Semantics: 


comment-text 
This field can contain any comment that the programmer desires to include for documentation pur- 


poses. 
Example: 


CCDE /«* This is an exampte of an enctosed comment texte This 
text kegirs with the virgule"asterisk pair and ends with 
the asterisk-viraqule pair. */ STATEMENT; 


End-of-Record Comment 


The end-of-record comment begins with the percent sign (%) character and continues to the end of 
the source file record. The SDL/UPL compiler discontinues scanning of a source image record when 
a percent sign (%) character is encountered. If a percent sign (%) character is contained within com- 
ment text delimited by the virgule-asterisk (/*) and the asterisk-virgule (*/) character pairs, the percent 
sign (%) character is treated as a part of the comment text. The SDL/UPL compiler then continues 
scanning for the ending asterisk-virgule (*/) character pair. 


The percent sign (%) character is not treated as an end-of-record indicator if it is imbedded in a quoted 
character string. For example, ‘‘% THIS IS A PERCENT SIGN’’. 


SDL and UPL Syntax: 


—— % <comment-text> > ———_ 


Syntax Semantics: 


% 
The percent sign (%) character indicates that the remainder of the source image is <comment- 
text>. 


comment-text 
This field can contain any comment that the programmer desires to include for documentation pur- 
poses. 
Example: 
CODE STATEMENT, % This is the endsof "record comment texte 
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SECTION 3 
STRUCTURE OF AN SDL/UPL PROGRAM 


The structure of an SDL/UPL source program includes four kinds of statements in this order: declara- 
tions, procedures, executable statements, and a FINI statement (or end-of-file record). 


Figure 3-1 illustrates the basic structure of the SDL/UPL source program. 


| DECLARATIONS | 
| PROCEDURES | 
| EXECUTABLE STATEMENTS | 
| FINI STATEMENT | 


G18297 


Figure 3-1. Basic Structure of the SDL/UPL Source Program ; 
An SDL/UPL program can have procedures within a procedure. A procedure within a procedure is 
called a ‘‘nested’’ procedure and has the same basic structure as the structure of an SDL/UPL pro- 
gram. Nested procedures consist of declarations, procedures (optional) and executable statements. A 
nested procedure begins with PROCEDURE <procedure name> and ends with END <procedure 
name>. Refer to Section 7 for a complete description of procedures in an SDL/UPL source program. 
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LEXICOGRAPHIC LEVEL 
A lexicographic (lexic) level is a compile-time relationship of each procedure to the outer level of the 
program. The outer level is referred to as lexic level 0 (zero). All other procedures are nested within 


lexic level 0. They are assigned a lexic level number which represents their depth of nesting from lexic 
level 0. Figure 3-2 shows the relationship of procedures and their associated lexic level number. 


PROGRAM (level 0) 
ONE:A (level 1) 


; TWOA (level 2) 


ONEB (level 1) 
= TWOB (level 2) 


- REEB (level 3) 


G18298 


Figure 3-2. Relationship of Procedures and Lexic Level Number 


Procedures ONEA and ONEB are at lexic level 1, procedures TWOA and TWOB are at lexic level 
2, and procedure THREEB is at lexic level 3. 


The maximum lexic level is 15. Nested procedures cannot exceed 15 levels in depth. There is no limit 
to the number of procedures that can occur on any level or in any procedure. 
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Declaring a procedure (procedure identifier) must not be confused with the procedure itself. The proce- 
dure identifier exists at some lexic level and specifies that a procedure is beginning with the next source 
statement. The next source statement exists within the procedure and is one lexic level number higher 
than the procedure identifier. This separation of the procedure identifier from its procedure has 
significance in the scope of a procedure. Figure 3-3 is a coding example showing procedures nested 
within other procedures in an SDL/UPL source program. 


DECLARE Al» A2r AZr A&G 


PROCECURE Bb; 
DECLARE Bl». B2» 33; 
PROCETCURE C3; 
DECLARE Cl» C2> C35 
Executable Staterents 
END C> 
PROCECURE 03 
Executable Statemerts 
ENC O; 
Executable Statements 
END Bs 


PFOUCECUFRE E;3 
DECLARE El» E23 
PROCECURE F; 
CECLAFE Fly Fes F353 
PROCECURE G; 
DECLARE Gl» Gés 
Executadle Statements 
END Gs 
PRGCCCURE he 
Executable Statements 
ENC Hs 
Executable Statemerts 
ENC F; 
PROCECURE J; 
CECLARE Jl» 2; 
FROCECURE Ks; 
DECLARE Ki» K2;5 
Executable Statements 


ENL Kes 
Executable Statemerts 
END J, 
Executable Statements 


END Es? 
Executable Statements 


FINI> 


Figure 3-3. Example Showing Procedures Nested within Procedures 


1137833 3-3 


B 1000 Systems SDL/UPL Reference Manual 
Structure of an SDL/UPL Program 


SCOPE OF PROCEDURES AND IDENTIFIERS 


The scope of a procedure, determined at compile time by the SDL/UPL compiler, is the range within 
a program over which an identifier or procedure identifier can be referenced. The scope of an identifier 
is a direct result of the lexic level of procedures and of the storage allocation techniques used by the 
SDL/UPL compiler. The scope of an identifier is that portion of the SDL/UPL program which can 
reference the identifier. The scope of a global identifier is all the nested procedures and statements, 
exclusive of any nested procedures and statements that declare the same identifier. Nested procedures 
and statements are procedures and statements embedded within the procedure such that the different 
hierarchical (lexic) levels can be performed or accessed recursively. 


The scope of an identifier within a procedure is that procedure exclusive of any nested procedures 
within the procedure that declares the same identifier. 


The format of procedures ensures that only those statements contained within the procedure or in glo- 
bal procedures (procedures with lower lexic level numbers) are within the scope of the procedure. 
Executable statements in a procedure can reference identifiers and procedure identifiers that are de- 
clared in that procedure. 
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Figure 3-4 illustrates the scope of a sample program. 


Program A 
— (LLO) 
DECLARE A1, A2, A3, A4; 


PROCEDURE B; (LL1) 
DECLARE B1, B2, B3; 


PROCEDURE C; (LL2) 
DECLARE C1, C2; 
Executable Statements 


PROCEDURE D; (LL2) 
DECLARE D1, D2; 
Executable Statements 


Executable Statements 


PROCEDURE E; (LL1) 
DECLARE E1, E2, E3, E4; 


PROCEDURE F: (LL2) 
DECLARE F1, F2, F3; 
PROCEDURE G; (LL3) 
DECLARE G1, G2; 
Executable 
Statements 
PROCEDURE H; (LL3) 
Executable 
Statements 
Executable Statements 


PROCEDURE J; (LL2) 


DECLARE J1; J2; 


PROCEDURE kK; (LL3) 
* DECLARE K1, K2; 
Executable 
Statements 


Executable Statements 
Executable Statements 


Executable Statements 


G18299 Figure 3-4. Procedure Nesting 


In Figure 3-4, the procedure identifier is assigned the lexic level number of the encompassing procedure. 
The procedure itself is assigned the next higher lexic level number. LL1, LL2, and LL3 represent lexic 
level numbers 1, 2, and 3, respectively. Procedure D is at lexic level 2 while the procedure identifier 
D is at lexic level 1. 
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The executable statements in lexic level 0 can reference procedure identifiers B and E, but not proce- 
dure identifiers C, D, F, G, H, J, and K. They cannot because procedures B and E have not been 
invoked and procedure identifiers C, D, F, G, H, J and K are not defined. 


The executable statements in procedure B can reference procedure identifiers C and D because proce- 
dure identifiers C and D become available when procedure B is invoked. 


The executable statements in procedure B can also reference any identifiers or procedures that are de- 
clared on lexic level 0. This implies that procedure B can invoke itself. All procedures are recursive. 
Any difficulties encountered with duplicate identifiers within a nested procedure are resolved by the 
allocation of new space for the most recent occurrence of the duplicate identifier. 


The executable statements in procedures G and H can reference identifiers within procedures E and 
F. Executable statements in procedure K can reference identifiers within procedures E and J. 


Several procedures can have the same lexic level number by occurring at the same depth from lexic 
level 0. The relationships that can exist between such procedures depend upon the relationship of the 
nested procedures in which they appear. 


Procedures that have a common procedure (one lexic level number lower) can invoke each other. Proce- 
dures that do not have this attribute cannot invoke each other. 


The following are conditions for inclusion of an identifier within the scope of a procedure. 
e The procedure identifier itself. 


e Procedures declared in the procedure, but not their nested procedures. Thus, in Figure 3-4, pro- 
cedure identifier F is within the scope of procedure E while procedure G is not. 


e Any procedure (and its nested procedures) whose procedure identifier is declared at the same 
lexic level and within the same procedure as its own identifier. 


e The procedure in which its own procedure identifier is declared. 


The known scope is limited by the requirement that an identifier must be declared before it can be 
referenced. Thus, in Figure 3-4, procedure B cannot reference procedure identifier E, although proce- 
dure E can reference procedure identifier B. A FORWARD procedure declaration removes this restric- 
tion. Refer to the Section 7 for a complete description of FORWARD procedures. 


The scope of an identifier includes all procedures which can reference the identifier. An identifier can 
be either a data name or a procedure name. In Figure 3-4, executable statements in procedure C can 
reference procedure identifier B. Procedure identifier C is within the scope of procedure B. Executable 
statements in procedure C can invoke procedure identifier B. Executable statements in procedure C can 
reference identifiers Bl, B2, and B3. . 
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Table 3-1 is used in conjunction with Figure 3-4 and shows the relationship between the scope of a 
procedure and the invoking procedure. | 


Table 3-1. Relationship of Scope and Invoking Procedures 


Invoking Procedure 


Procedure 
Identifier 


Ramo mm OOo > | 


To find the scope of a procedure in Table 3-1, find the procedure identifier in the first column. The 
horizontal rows to the right of each procedure identifier indicate the procedures in its scope. The proce- 
dures which can be invoked by a given procedure are indicated by an asterisk in the vertical columns 
below the invoking procedure identifier. 
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SECTION 4 
DECLARATIONS 


This section describes data, record, file, and switch-file declarations that can be specified in an SDL/ 
UPL program. 


The data declaration specifies simple, overlay (remap), structured, reference, dynamic, and paged-array 
data items. 


The record declaration specifies a data structure which does not allocate memory space and is used 
in conjunction with the data declaration. 


The file declaration describes a file to be used by an SDL/UPL program. 


The switch-file declaration, which specifies a group of files that can be used as files, is referenced by 
a subscript. 


DATA DECLARATIONS STATEMENT 


The DECLARE statement specifies simple, overlay (remap), structured, reference, dynamic, and paged- 
array data items. The fundamental data types that can be declared are BIT, CHARACTER, and 
FIXED. Additionally, the programmer can define a combination of these data types in a RECORD 
declaration, and subsequently use that RECORD structure as a data type in declaration clauses. 


Any error in a declaration statement causes the SDL/UPL compiler to ignore all other declarations 
that occur within the same statement and beyond the point of error. Everything between the error and 
the end-of-statement token (;) is ignored. 


The SDL/UPL compiler generates more efficient code when all declare clauses are in a single DE- 
CLARE statement. 


All of a procedure’s declaration statements must appear before any executable statements. 


Spaces between the data type keywords BIT and CHARACTER and their parenthesized sizes are op- 
tional. 


Example: 


"CHARACTERC10)" ana “CEARACTER C10)" 


Spaces are also optional between an array identifier and its subscript. 


Examples: 
DECLARE A FIXED» 
Q CHARACTER» 
CCr+EoF(5)) FIXED> 
H(S) CHARACTEF CH); 
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SDL and UPL Syntax: 


—— DECLARE 


<identifier-part> 
<structured-part> 


< paged-array-part> 


<dynamic-part> 


<reference-part> 
<remaps-part> 


Syntax Semantics: 


identifier-part 
Refer to identifier-part in this section. 


structured-part 
Refer to structured-part in this section. 


paged-array-part 
Refer to paged-array-part in this section. 


dynamic-part | 
Refer to dynamic-part in this section. 


reference-part 
Refer to reference-part in this section. 


remaps-part 
Refer to remaps-part in this section. 


identifier-part 
The syntax and semantics of the identifier-part in the DECLARE statement are described as follows: 


SDL and UPL Syntax: 


<identifier> Fe ie 
( <number-of-elements> ) ——— 


(<number-of-elements> ) 


= «~<type-part > 
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Syntax Semantics: 


identifier 
This field can be any valid SDL/UPL identifier and specifies the name of a data item or array. 


number-of-elements 
This field specifies the size of an array and can be any valid SDL/UPL number, identifier, or 
expression that returns a binary value. 


An SDL/UPL array is a group of memory locations associated with a single identifier. All 
elements of an array are identical in structure. Individual array elements are referenced by using 
a subscript with the array identifier. 


Any identifier followed by a number in parentheses names an array. 


Array subscripts are zero-relative. For example, the first element of array ARRAY is ARRAY(0). 
Valid subscripts for a 5-element array are 0, 1,2, 3, and 4. If the subscript is not between 0 and 
n-1 inclusive, where n is the declared number of elements in the array, an invalid subscript error 
is generated and the program is terminated by the MCP. 


The maximum number of elements that can be specified for an array is 65,535. The maximum 
length of the array is 65,535 bits (8191 characters). 


type-part 
Refer to type-part in this section. 


structured-part 


The structured-part of the DECLARE statement allows the programmer to specify data items in logical 
groups. The maximum number of data items allowed in a single structure is 198. The keywords 
DUMMY and FILLER are included in this count. Any attempt to declare a larger structure causes 
a table overflow error at compile time. 


The size of a structure can be specified in the data type of its 01-level identifier. When no data type 
is specified, the compiler assigns a structure size equal to the aggregate length in bits of all subfields 
of the structure. 


The two following structures cause identical structures to be generated. Both DECLARE statements 
generate an implied 3-bit filler. 


Example: 
DECLARE O01 A CHARACTERC4)>» 
02 B FIXEC> 
O02 C e&IT (5)% 
DECLARE O1 A CKHARACTER>» 


V2 A FIXEC, 
02 C B1T (5)3 


Data items that are specified with level numbers also called ‘‘structured data’’ can be remapped. If 
the REMAP keyword appears on a level greater than 1, the remap is restricted. In this case, the right- 
hand identifier must be the last data item in the same structure on the same level as the lefthand identi- 
fier that is to remap it. If the previous data item was declared with the REMAPS keyword, the right- 
hand identifier can refer to the original declaration of the memory space. 
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The syntax, semantics, and some examples of the structured-part in the DECLARE statement are de- 
scribed as follows: 


SDL and UPL Syntax: 


: Fe eS ee eed oro Ce De 
<level-numbe > oon een en —_—wWwWwee > 6m 
AK <<.  OOnan'aoOanmvmm- 
B <identifier-part> ——- eas x 
FILLER 


<remap-identifier> REMAPS <identifier> 
— DUMMY REMAPS <identifier> 


Syntax Semantics: 


level-number 
This field can be any valid SDL/UPL 2-digit integer and specifies the level of the structure. <lev- 
el-number> can range from 01 to 99. 


identifier-part 
Refer to identifier-part in this section. 


type-part 
Refer to type-part in this section. 


FILLER 
The keyword FILLER designates the memory areas which the program does not reference. The 
FILLER keyword can be used on any level specified by <level-number> which is greater than 
01. If the FILLER keyword is the last item in a structure and its parent field specified a length, 
it can be omitted. The SDL/UPL compiler supplies an implied filler. An item’s parent identifier 
is the field which the item subdivides. The parent identifier must have a lower level number than 
its subdividing item. 


remap-identifier 
This field can be any valid SDL/UPL identifier and specifies an alternative identifier for the same 
memory space declared by <identifier>. 


REMAPS 
The keyword REMAPS causes memory space specified by <identifier> to be named <remap- 
identifier >. When the REMAPS keyword appears on a structure with <level-number> greater 
than 01, <identifier> must be the last data item declared in the same structure having a level 
number of <identifier > that is equal to the level number of <remap-identifier>. Also, <remap- 
identifier > must be the last data item declared in the same structure with equal level numbers 
unless the last data item is also declared with the REMAPS keyword. 


DUMMY 
The keyword DUMMY can be substituted for <remap-identifier>, but a data descriptor is not 
generated. The DUMMY keyword can be used only in conjunction with the REMAPS keyword. 
The DUMMY keyword eliminates the need to declare redundant identifiers. 
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The DUMMY keyword cannot be used to remap another DUMMY keyword. 


If the DUMMY keyword is specified, the subordinate structure must have at least one identifier 
that is not the FILLER keyword. 


Examples: 
CECLARE O1 A dIT €160)- 
02 8 BIT €60)» 
O02 FILLER RIT €29)» 
U2 C CHARACTER €10)>» 
Q1 AA REMAPS A CHARACTER (20)» 
02 RB RIT €80)» 
02 CC BIT C80)» 
U2 OMAF REMAFS AE CHARACTER C10)» 
QO1 DUMMY FEM4FS A BIT C160)> 
Q2 BBF Co) FIXED» 
G2 FILLER BIT Ci6b): % This FILLER is optional. 


paged-array-part 


The paged-array-part in the DECLARE statement allows SDL/UPL programs to use the B 1000 sys- 
tem’s dynamic memory facility. This facility allows the amount of memory to vary depending on how 
much is actually used and can be set at execution time with the MEMORY program attribute. Refer 
to the B 1000 Systems System Software Operation Guide, Volume 1, form number 1108982 for a com- 
plete description of the MEMORY program attribute. The amount of dynamic.memory allocated can 
also be set by specifying the $ DYNAMICSIZE compiler option. 


The SDL/UPL compiler automatically allocates dynamic memory sufficient for one page of each paged 
array declared. From this, the programmer must allocate enough additional dynamic memory based 
on the knowledge of how many pages are actually used at any one time. If the amount of dynamic 
memory is not enough at execution time, the following program abort message is displayed on the 
Operator Display Terminal (ODT): 


SDL PAGEC ARKAY FANDLER COULCN'T OBTAIN <number> GITS- 
“-INSUFFICIENT OYNAMIC MEMOFRY- eERUN WITH ME=<number > 


The syntax, semantics, and an example of the paged-array-part in the DECLARE statement are de- 
scribed as follows: 


SDL and UPL Syntax: 


—————~ PAGED (<elements-per-page> ) <identifie => ———————__ 


>——— (<number-of-elements> ) <type-part> ——_ 
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Syntax Semantics: 


PAGED 
The keyword PAGED causes the array specified by <identifier> to be segmented. Paged-arrays 
cannot be indexed, a part of a structure, or remapped. 


elements-per-page 
This field specifies the number of elements of the array specified by <identifier> to be contained 
in an overlayable data segment. It can be any valid SDL/UPL number or expression that returns 
a binary value. <elements-per-page> must be one of the following values: 2, 4, 8, 16, 32, 64, 
128, 256, 512, 1024, 2048, 4096, 8192, 16384, or 32768. 


identifier 
This field can be any valid SDL/UPL identifier and specifies the name of the array to be seg- 
mented into pages. 


number-of-elements 
This field specifies the number of elements in the array and can be any valid SDL/UPL number 
or expression that returns a binary value. <number-of-elements> can range from 1 to 65,535, 
inclusive. <number-of-elements> can be increased up to 16,777,215 by using the GROW verb. 
Refer to Section 9 for complete information on the syntax, semantics, and function of the GROW 
verb. 


type-part 
Refer to type-part in this section. 


Example: 


CECLARE PAGEC (64) A (C4096) dIT C1); 


ee 


Array tdentifier A ts a 
segmented array with 64 
elenents per seqments» and a 
total of 4096 elements» each 
ore bit long. 


were nw rw 


dynamic-part 


The syntax, semantics, and examples of the dynamic-part in the DECLARE statement are described 
as follows: 


SDL and UPL Syntax: 


——- DYNAMIC <identifier-part> hair Wiser aae aie aaa. 
<remap-part> 


Syntax Semantics: 


DYNAMIC 
The keyword DYNAMIC allows the array length of <identifier> or <number-of-elements> to 
be determined at the time the procedure is entered. 


The keyword DYNAMIC can be specified only in a procedure. Any variables specified must have 
been previously declared and initialized. 


The keyword DYNAMIC cannot be specified on lexic level 0. 


B 1000 Systems SDL/UPL Reference Manual 
Declarations 


No length checks are made when a dynamic identifier is remapped. Any remapping of a dynamic 
identifier generates an advisory message from the SDL/UPL compiler. 


identifier-part 
Refer to identifier-part in this section. 


remap-part 
Refer to remap-part in this section. 
Example 1: 
PROCENURKE AEC; % The lenqth of identifier X 15 
GCECLARE DYNAMIC X EIT CA)> % determined by the value of 
° 4 identifier Ae 
END ASCs, 
Example 2: 
PROCECURE XYZ3 % The number of elements in 
DECLARE DYAAMIC A CED BIT €10)+ % array & is determined ty the 
* % value of identifier 6. 
END XY¥23 
Example 3: 
DECLARE X FIXKEC;> % The vatue of identifier X 
PFOCECURE NESTED> % determines the number of 
CECLARE CYNAMIC AECCX) FIXEC3 X elements in array ABC. 


« 


END NESTEDS 
KX s= 103 
NESTEDS 
STOP; 

FINI; 


reference-part 


The syntax, semantics, and an example of the reference-part in the DECLARE statement are described 
as follows: 


SDL and UPL Syntax: 


LL <identifier> ee ee ee 
> — REFERENCE iL eee 
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Syntax Semantics: 


identifier 
This field can be any valid SDL/UFPL identifier and specifies the name of the reference identifier. 


record-identifier 
This field can be any valid SDL/UPL record identifier and specifies a RECORD reference identifi- 
er. RECORD reference identifiers are assigned with a REFER verb and can be written in other 
statements as though they were structure identifiers. For example, a RECORD reference identifier 
can have field qualifiers attached with the period (.) notation. Such an access divides the current 
memory areas described by the reference identifier according to the record declaration. 


Example: 


DECLARE LR DESCRIPTCR FEFERENCE;s % Identifier X ts assigned 

% tec bits 108 through 124 
REFER CF TU SUBRBIT CMYAREAs 199% GEV Z% Of the bit string MYAREA. 
X 8= CReLEN: 


All restrictions which apply to normal reference identifiers are applicable to RECORD reference identi- 
fiers. RECORD reference identifiers cannot be specified in the REDUCE verb. 


REFERENCE 
The keyword REFERENCE causes <identifier> to be a reference identifier. Reference identifiers 
are used as pointers to data without allocating memory space. Since reference identifiers are point- 
ers, the REMAPS keyword cannot have a data type equal to REFERENCE. A reference identifier 
is bound to another identifier by using the REFER verb. 


Generally, reference identifiers are used as a scanning tool. The reference identifier is bound to 
an identifier that has a data type equal to CHARACTER or an expression that returns a value 
with a data type equal to CHARACTER. The REFER verb is used to bind a reference identifier 
to an identifier. The REDUCE verb is used on the reference identifier to obtain the desired charac- 
ter string. Refer to Section 9 for information concerning the REFER and REDUCE verbs. 


Example: 


DECLAKE A FEFERENCEs % The reference identifier A is 
A CHARACTER (29); 2 eeound to identifier 3. 
REFER A TO &s; 


remaps-part 


The syntax, semantics, and some examples of the remaps-part in the DECLARE statement are de- 
scribed as follows: 


SDL Syntax: 


<remap-identifier> REMAPS 


ae ee <identifier> ee <type-part> —— 
BASE 


_ OO <identifier> < type-part> San 


UPL Syntax: 


— <remap-identifier> REMAPS 
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Syntax Semantics: 


remap-identifier 
This field can be any valid SDL/UPL identifier. It specifies the alternative name of the same mem- 
ory space as <identifier>. 


REMAPS 
The keyword REMAPS causes the starting address of <remap-identifier> to be the same as 
<identifier >. 


<remap-identifier > cannot be larger than <identifier>. However, it can be remapped by a 
smaller identifier. In that case, the SDL/UPL compiler provides implied filler bits on the un- 
mapped rightmost bits. 


Example: ; 
DECLARE A BIT €(10)5» & An imolied 3-bit filler 
B REMAPS A SBLTC7)> 418 provided fer identifier 
C REMAPS ECE 81T(5); % Bb and an implied S-~bit 


* filler its provided for 
% identifier C. 


There is no actual limit to the number of times a field can be remapped. <remap-identifier> can be 
remapped by another <remap-identifier>. 


BASE 
The keyword BASE is valid only for SDL programs and causes <remap-identifier> to have a 


starting address at the base-relative address of the program. 


The keyword BASE is used as a free-standing declaration since it does not remap a previously 
declared identifier and is used primarily with data that is to be indexed. Refer to Section 6 for 
a description of indexing in SDL programs. 


Examples: 


Identifier B remans 
identifier A and identifier 
C has a Starting address 
ecual to © Cthe beginning 
address of the program). 


xn 


DECLARE A CKARACTER ClO)» 


E KEMAPS A EIT CAC)» 
C FEMAPS BASE EIT (€100)5 


eR HM NH 
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type-part 


The syntax and semantics of the type-part in the DECLARE statement are described as follows: 


SDL and UPL Syntax: 


nae 


FIXED 


BIT ae TEs 
(<bit-size>) —--————— 

CHARACTER a eel 
( <character-size> ) 


<record-identifier> 


Syntax Semantics: 


BIT 
The keyword BIT makes the identifier have a data type equal to BIT. A bit can have a value 
equal to 0 (zero) or 1. It is the smallest unit of data that can be addressed on the B 1000 computer 
system. 


CHARACTER 
The keyword CHARACTER makes the identifier have a data type equal to CHARACTER. A 
character is 8-bits long and represents one of the 256 EBCDIC characters. 


FIXED 
The keyword FIXED makes the identifier have a data type equal to FIXED. A fixed identifier 
is 24 bits long with the sign-bit in the leftmost bit position. The sign-bit is used for arithmetic 
calculations. A negative number is stored as the two’s complement of its like positive number. 
Identifiers with a FIXED data type can range in value from — 8,388,608 to + 8,388,607, inclusive. 


bit-size 
This field specifies the number of bits in <identifier> and can be any valid SDL/UPL number, 
identifier, or expression that returns a binary value. 


character-size 
This field specifies the number of characters in <identifier> and can be any valid SDL/UPL 
number, identifier, or expression that returns a binary value. 


record-identifier 
This field can be any valid SDL/UPL identifier and specifies the name of a record structure. Refer 
to Record Declarations in this section. 


Array Declaration Information 


Only 1-dimensional, level-structured arrays are allowed. Thus, if a group item is an array, none of 
its substructures can be an array. Multidimensional arrays can be created by using record structures. 
An array field cannot be declared with a REFERENCE data type. A multidimensional field can be 
define by using the RECORD REFERENCE structure. 
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If the Ol-level identifier is an array, it is mapped as a contiguous area in memory. Subdivisions of 
an array are not contiguous. The following shows the way in which subdivisions of an array are 
mapped. 


Example: 


DECLARE O01 AC5) PIT €48)>» 
92 3 FIXEC» 
u2 C FIXECs 


Figure 4-1 shows how array A and identifiers B and C are mapped in memory. 


NOTE 


A(0), A(1), A(2), A(3), and A(4) are all 48 bits in 
length. B(O), C(O), B(1), C(1), B(2), C(2), B(3), 
C(3), B(4), and C(4) are all 24 bits in length. 


G18300 


Figure 4-1. Memory Mapping of Array A and Identifier B and C 


Examples of DECLARE Statements 

The following are examples of DECLARE statements. 

Example 1: 

Identifier TAGA is a signed 


% 24-bit binary value. The sigr 
% 38 the leftmost bite 


x 


CECLARE TAGA FIXED; 


Example 2: 


% Identifier TAGE is of tyne 

% CHARACTER and one unit tongs 
% CHARACTER is in @@bit EBCDIC 
% formate 


CECLARE TAGS CHARACTER; 


Example 3: 


CECLARE TAGC EIT (€17)5 % ITaentifier TAGC is of tyne BIT 
% and is 17 bits tong. 
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Example 4: 
DECLARE TAGA FIXEC,> % The identifiers have the same 
TAGKH CHARACTEF (1)> % namer data type» and fength as 
TAGC EIT CL7), Z in examretes 172% except they 
% are dectared tn one statement 
% with the identifiers separated 
% by the comma C») character. 
Example 5: 
CECLARE 91 CARE CHEARACTER €80)% ZX An implied filter of eight 
C2 INPUT CHARECTER €72)5 Z& characters is dutomaticattly 
Z% assigned by the SDL/UPL 
Z ceompiter to exnard the O02 
% tevel to its reautired length cf 
% 80 characters. 
Example 6: 
CLECLABE % A tattle of five items that 
OL TAULE_A CHARACTER (€14)» ZX consumes 14 bytes is declared. 
O2 ITEM_1 CHAFACTER €6O)5 © Each itew is exclicitly named 
02 ITE_2 CHARACTER €4)5 Z in the structures» and its tyne 
93 SUB_LITEM_@ FIXEC> % and tength are givene Also 
O2 ITEw_3 BIT ¢1l)>» % dectared 1s a second table of 
G2 ITFw_4 FIXetl» 2 209 titse Identifier SUB_ITEM_2 
C2 TTEK_5 LT C1)» % further subdivices ITEM 2 and 
Ol TAGLE_E BIT (200); % uses the first three characters 
Z (24 Fits). There ts an tmolted 
% FILLER on the 03 level 
% fottewirg identifier 
%Z SUSB_ITEM_2. 

Example 7: 

CECLARE % An 380Orcolumn card is dectared 
CARTS CHAFACTEF (€80)+* % and then remapoed as an array 
COLUMNS €f0) REMAPS CARES % of @C elements» each cf 

CHARACTER €1)>» % one character. The card is 
Ol NUMLFTELDS €40) FEMELPS CARD z remaoped aqain as a 40“eltement 
CHARACTER C1)» % array» each of two characters. 
O2 FIFST_NUM CHAFACTEF C1)» & Each @"character array element 
C2 SECONC_NUM CHARACTER (1)5 % is further subdivided into 
Z separate elements that can be 
4 referenced. 
%Z identifiers FIRST_NUM and 
Z% SECGNC_AUM must be subscriptecd 
z when they are used. The 
% subscript vatues must range 
% from O to 39° inclusive. 


4-12 


B 1000 Systems SDL/UPL Reference Manual 
Declarations 


Example 8: 


CECLARKE CITEM1s ITEM?» I[TEM3) FIXED; A tist of identifiers is 
declared» att af data tyoe 


FIXED. 


sk Fe 


Example 9: 


DECLAFE 
Ol NEW_LAEEL> 

G2 KL_1 CHARACTER (€25)> 

O2 NL_2 €3) CHARACTER €25), 
O3 FILLER CHARACTER (5)> 
03 FIRST CRKARACTER (10)> 
O03 SECOND CHARACTER (10), 

O02 NL_3 FIXEC? 


A group item NEW_LABEL is 
declared and the SOL/UPL 
compiler assigns it a 8IT 

data tycee The tength of 
NEWL_LABEL ts equal to the 

sum of the bits of the 02 
levels that follow (€25 # 3 

* 25) * 8 #€ 24 = 824 bits). 
Identifier NL_2 is an array 

of three elements each 25 
characters in tengthe FILLER 
is used to omit the naming of 
an area that 1s never 
referenced separately. 

*#ILLEK can be used as often 

as required without causing 

a duplicate"name syntax 

errore Identifiers FIRST and 
SECQNC are 3ZS~element subarrays 
of array NL_2- They are 
referenced with subscripts O» 
1» and 2 for the firste second» 
and third elements» 
respectivelye Each element is 
10 characters tonge JToentifier 
NL 3 is a FIXED» signed binary 
numroer e 


RNRNM RNR RK 


mw oe 


NNR MRMN KR KM MMM MM NW RT 


Example 10: 


CECLARE O21 Ap» 
02 Al €20) FIT €20)> 
C2 A2 (18) BIT €20)» 
03 61 BIT €15)» 
03 83 BIT €5)>» 
02 A3 (2) BIT (5)5 


Pecause of the explicitty 
declared array size specified 
for array Al» A2»x» and A3» 
identifiers Al» A2@» Bi» B2 and 
AZ must all the sutscripted>» 
when referenced. The length sum 
of identifiers 61 and 82 must 
be equal to» or tess than» the 
length specified for identifier 


N RR 


RNN NN NWN RR 
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Example 11: 


CECLARE Of: TACA (5) EIT (48)> 
O2 TAGS FIXEC. 
O02 TAGC FIXECs 


Tdentifier TAGA is maroned 
intc a contiquous memory 
area to contain the data for 
identifiers TAGE and TAGC. 
TAGE and TAGC are iaolicit 
Sunit arrays» but are not 
mapced contiquously. They 
are manped in an aiternating 
marner as follows? TAGBC0O)» 
TAGCCO)» TAGBC 1)» TAGCC1)» 
oeer TAGBC4)» and TAGC(4). 


NMRNNNNR KM RMN N FW 


Example 12: 


CECLARE 
PAGED €1024) SIG_D_hR C4OSE) BIT C1); 


Identifier BIG_C_N t$ an array 
with GOQ96 elements» each one 
bit longe The array is 
segmented tnto 1024 partse Each 
part 15 brought into memory; 
that 13» paged whenever tt is 
addressede No special 
statements are reauired to doa 
the paqing.e 


Nn EM NM NR 


wnwm 


RECORD DECLARATIONS 

SDL/UPL programs have two ways of creating data structures. They are the level-structure DECLARE 
statement and the RECORD statement. Each statement establishes similar structures. The following are 
the benefits of using the RECORD statement. 


¢ RECORD statements reduce ruri-time space requirements because records do not generate large 
name and value stacks. 


e RECORD statements provide safer, simpler, and often faster access to linked data structures 
than do level-structured DECLARE statements. 


e¢ RECORD statements provide a method to structure paged arrays. 


RECORD statements allow arrays to be nested within structural levels. 


RECORD statements reduce the probability of error and increase programming ease by al- 
lowing structures to be described once and invoked many times. 


NOTE 
Data structures cannot be declared with a data type of REFERENCE. The 
RECORD REFERENCE construct must be used instead. 
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Building a record structure requires two statements. First, a RECORD statement must describe the 
memory layout of the structure. The RECORD statement essentially describes a new data type that 


can be used exactly as data types BIT, CHARACTER, and FIXED. Describing the RECORD structure 
does not allocate memory space for the structure. 


Memory space is allocated for the RECORD structure when the record identifier is specified as the 
data type of an identifier in the DECLARE statement. Thus, a DECLARE statement is the second 
statement needed to invoke a RECORD structure. 


The syntax and semantics of the RECORD statement are described as follows: 


SDL Syntax: 


—— RECORD amy Eiairncas ae a ; $$ ____—_—_ 


<unstructured-part> —-——— 
UPL Syntax: 


—-RECORD <unstructured-part> ; SS 


Syntax Semantics: 


structured-part 
Refer to structured-part in this section. 


unstructured-part 
Refer to unstructured-part in this section. 


structured-part 


The syntax and semantics of the structured-part in the RECORD statement are described as follows: 


SDL Syntax: 


—-<levelenumber> <crecord-identifier> <type-part> ——————————— > 
ee aia ener aa Se a a <type-part> a 
<remaps-part> 


Syntax Semantics: 


record-identifier 
This field can be any valid SDL/UPL identifier and specifies the name of the record structure. 


level-number 


This field can be any valid SDL/UPL number and specifies the level of the record structure. <lev- 


el-number> can range from 1 to 99. The first level number for a record structure must be 01 
or 1. 


identifier-part 
Refer to identifier-part in this section. 
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remaps-part 
Refer to remaps-part in this section. 


type-part 
Refer to type-part in this section. 


unstructured-part 


The syntax and semantics of the unstructured-part in the RECORD statement are described as follows: 


SDL and UPL Syntax: 


—— <record-identifie—> —__—_——————_____ [ci 


<identifier-part> <type-part> ———————__—__—_ —————+ 
a ae 


<identifier-part> <type-part> 


Syntax Semantics: 


record-identifier 
This field can be any valid SDL/UPL identifier and specifies the name of the record structure. 


identifier-part 
Refer to identifier-part in this section. 


type-part 
Refer to type-part in this section. 


The left and right broken bracket characters cause the enclosed identifiers to become an alternative 
format for the same area as that represented by the identifier specified immediately before the left 
and right broken bracket characters. 

identifier-part 

The syntax and semantics of the identifier-part in the RECORD statement are described as follows: 


SDL and UPL Syntax: 


<identifier> ee seo eetedes a icene, 
| ——- (<number-of-elements> ) — 


FILLER 


Syntax Semantics: 


identifier 
This field can be any valid SDL/UPL identifier and specifies the name of the data item or array. 
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number-of-elements 
This field specifies the number of elements in the array. It can be any valid SDL/UPL number, 
identifier, or expression that returns a binary value. 


An SDL/UPL array is a vector which is a group of memory locations associated with a single 
identifier. All elements of an array are identical in structure. Individual array elements are refer- 
enced by using a subscript with the array identifier. 


Any identifier followed by a number in parentheses names an array. 


Array subscripts are zero-relative. For example, the first element of array ARRAY is ARRAY(0). 
Valid subscripts for a 5-element array are 0, 1, 2, 3, and 4. If the subscript is not between 0 and 
n-1 inclusive, where n is the declared number of elements in the array, an invalid subscript error 
is generated and the program is terminated by the MCP. 


The maximum number of elements per array is 65,535. Each element has a maximum length of 
65,535 bits (8191 characters). 


Identifiers specified as an array in the structured part of a record declaration cannot have nested 
record structures. 


FILLER and parent field 

The keyword FILLER designates the memory areas which the program does not reference. A par- 
ent identifier of an item is the field which the item subdivides. The keyword FILLER can be used 
on any level, specified by <level-number>, which is greater than 01. If the FILLER keyword is 
the last data item in a structure and its parent field specifies a length, the FILLER keyword can 
be omitted. The SDL/UPL compiler supplies an implied FILLER. A parent identifier of an item 
is the field which the item subdivides. The parent identifier must have a lower level number than 
its subdividing item. 


remaps-part 
The syntax and semantics of the remaps-part in the RECORD statement are described as follows: 


SDL and UPL Syntax: 


<remap-identifier> REMAPS ————————— <identifier> ———_____—_____—__—_ 


Syntax Semantics: 


remap-identifier 
This field can be any valid SDL/UPL identifier and specifies the alternative name of the same 
memory space as <identifier>. 


REMAPS 
The keyword REMAPS causes the starting address of <remap-identifier> to be the same as 
<identifier >. 


<remap-identifier> cannot be larger than <identifier>. However, it can be remapped by a 
smaller identifier. In that case, the SDL/UPL compiler provides implied-filler bits on the un- 
mapped rightmost bits. There is no actual limit to the number of times a field can be remapped. 
<remap-identifier> can be remapped by another <remap-identifier>. 
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identifier 
This field can be any valid SDL/UPL identifier and specifies the name of the field to be re- 
mapped. 
type-part 


The syntax and semantics of the type-part in the RECORD statement are described as follows: 


SDL and UPL Syntax: 


— FIXED ———$$—_$__—____—_ ——_______--—--_| 


BIT (<bit-size> ) 
CHARACTER ( <character-size> ) — 
<record-identifier> 


Syntax Semantics: 


BIT 
The keyword BIT causes <identifier> to have a data type equal to BIT. A bit can have a value 
equal to 0 or 1 and is the smallest unit of data that can be addressed on the B 1000 computer 
system. 


CHARACTER 
The keyword CHARACTER causes <identifier> to have a data type equal to CHARACTER. 
A character is 8 bits long and represents one of the 256 EBCDIC characters. 


FIXED 
The keyword FIXED causes <identifier> to have a data type equal to FIXED. An identifier with 
a FIXED data type is 24 bits long, with the sign in the leftmost bit position, and is used for arith- 
metic calculations. A negative number is stored as the two’s complement of its like positive num- 
ber. Fixed identifiers can range from — 8,388,608 to + 8,388,607, inclusive. 


bit-size 
This field specifies the number of bits in <identifier> and can be any valid SDL/UPL number, 
identifier, or expression that returns a binary value. 


character-size 
This field specifies the number of characters in <identifier> and can be any valid SDL/UPL 
number, identifier, or expression that returns a binary value. 


record-identifier 
This field specifies the name of a record structure. This field can be any valid SDL/UPL identifier. 
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Qualified Record Names 


To reference an identifier within a record, the identifier must include the name of all of its parent 
identifiers separated by the period (.) character. 


Example: 


RECCKD TYPLEFIELD 
NV BiT Cl)» 
NSK E1TCL)» 
DATATYPE SIT€16);3 


RECORD DESCRIPTIUCA 


TYPE TYPEFIELC> 
LENGTH CIT C16)» 
CACCE BITC24 )» 
VAL P1T¢24) Is 
DECLARE C DESCRIPTION» 
ACS) TYPEFIELC, 
D t= O- 
AC1L) 2= QO» 
CeTYFENV = 201 )1La, 
ACLY.NV c= @€1)0G; 
DeLENGTH s= 4s 
CeTYPENSK 2= a@CLdCas 
ACG) .NSR 3= @Cl)ilads 


In the preceding example, two record structures are specified in the DECLARE statement. They are 
identifier D and array A. Since identifier D and array A have no parents, each identifier is completely 
qualified. If field NV is to be accessed, the name must contain its parent identifiers. Because field NV 
has two parents, either D.TYPE.NV or A(n).NV can be specified, where n is the element number 
within array A. Figure 4-2 shows the data space created when identifier D is declared. 


TYPE LENGTH ADDR or VAL 
NV NSR DATA 
a a TYPE 
(16) 
18 bits 16 bits 24 bits 


G18301 


Figure 4-2. Data Space Created for Identifier D 


In the record named DESCRIPTION, the previously described record named TYPEFIELD is the data 
type for field TYPE. This gives TYPE the subfields NV, NSR, and DATATYPE. Fields ADDR and 
VAL are alternative formats and, in the example, they have the same data type. The data types can 
vary. 


Defined record identifiers can be used as data types in any DECLARE statement, including a RECORD 
statement. 
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Record-Reference Identifiers 


In some cases, storage is not to be directly allocated for a record, although some program data can 
be in the format specified by the record structure. Record-reference identifiers provide a means to im- 
pose the record structure on a memory area during program execution. 


Record-reference identifiers are bound to an identifier by the REFER verb, as simple reference identifi- 
ers are bound. Field name qualification, within a record-reference identifier, is the same as with record 


structure names. The record-reference identifier is the first component of a qualified name used to ac- 
cess a field within the record. 


If the record-reference identifier is bound to an expression, the expression must generate an address. 
Record-reference identifiers cannot be specified in the REDUCE verb. 


The area length to which the record-reference identifier is bound must equal the length of the record 
structure. 


Example: 


RECQRO THIS_AND_TEAT 


FIRST FIXECe 

SECONE ETTC3)> 

TRIAC CHARACTERCLODS3 
LECLARE INFC TEIS_¢AND_THEAT REFERENCE, 

EIG_AFEA EIT (800)> 

x FIXEG3 


FEFER TAFC TO SUPETTCEIVC_AREA® 75-107 );5 
X s= INFO.FIRSTS 


Identifier X contains a fixed-number representation of the 24 bits beginning at the 76th (bit 75) bit 
of the identifier BIG_.AREA. Exactly 107 bits are assigned to the record-reference identifier INFO. 
Record identifier THIS_AND__THAT defines exactly 107 bits of information. 


FILE DECLARATIONS 


The FILE declaration statement describes a file to be used by a program and assigns an internal identi- 
fier to that file. More than one file attribute can be specified for each file, although all file attributes 
of the FILE declaration statement are optional. The default value is automatically set for any omitted 
file attribute. 


All FILE declarations must appear within the declaration portion of a program or procedure. 


All underscore (_.) characters used in internal file identifiers are converted to the period (.) character 
in the file parameter block (FPB). 


A FILE declaration consists of the reserved word FILE followed by one or more file identifiers which 


are separated by the comma (,) character. Each file identifier is optionally followed by file attributes 
enclosed within parentheses ‘‘( )’’ characters. 
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The syntax and semantics of the FILE declaration are described as follows: 


SDL and UPL Syntax: 


— FILE Limes = 


eet 


Syntax Semantics: 


file-identifier 


This field can be any valid B 1000 file name and specifies the internal file name of the file. 


attribute 


This field can be any valid SDL/UPL file attribute. 


The valid file attributes are listed and defined in the following paragraphs. 


ALL__AREAS__AT__OPEN 
AREAS 

BUFFERS 

DEVICE 
END__OF__PAGE__ACTION 
EU__INCREMENTED 
EU__SPECIAL 
EXCEPTION__MASK 
FILE_TYPE 
INVALID__CHARACTERS 
LABEL 

LABEL__TYPE 

LOCK 

MODE 

MULTI_PACK 
NUMBER__OF__STATIONS 
OPEN__OPTION 


ALL__AREAS__AT__OPEN 


OPTIONAL 

PACK__ID 

PROTECTION 
PROTECTION_IO 
RECORDS 

REEL 

REMOTE__KEY 

SAVE 

SECURITYTYPE 
SECURITYUSE 

SERIAL 

TRANSLATE 
USE__INPUT__BLOCKING 
USER__NAMED__BACKUP 
VARIABLE 

WORK_FILE 


The ALL_AREAS__AT__OPEN file attribute causes the area disk space to be allocated when the file 
is opened. If sufficient disk space is not available, an ODT message is displayed which indicates that 
no more disk space is available. The program is then suspended. By default, the value of each disk 


area is allocated when the area is needed. 
SDL and UPL Syntax: 


-— ALL_AREAS_AT_OPEN —— 
Example: 


FILE DISKFILE 


1137833 


$$ _ 


CALL_AREAS_AT_GPEN)3 
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AREAS 


The AREAS file attribute assigns the number of disk areas and the number of blocks per area for 
a disk file. 


This option applies only to disk files. 


If the AREAS and RECORDS file attributes are not specified, the SDL/UPL compiler assigns a value 
equal to 100 for the records per area. 


SDL and UPL Syntax: 


——AREAS = <num ber-of-areas> / < blocks-per-area> ——_— 


Syntax Semantics: 
number-of-areas 
This field can be any number and specifies the allowed number of disk areas for the file. The 
default value is 25. 
blocks-per-area 
This field can be any number and specifies the number of blocks each area can have. The default 
value is 100. 
The virgule (/) character is a delimiter and is not the division operator. 
Example: 
FILE CISKFILE CAREAS = 50/20C); 
BUFFERS 


The BUFFERS file attribute specifies the number of input/output (I/O) buffers to be assigned to the 
file. The BUFFERS file attribute cannot be specified for a file with a device type equal to QUEUE. 


SDL and UPL Syntax: 


— BUFFERS = <(number-of-buffers> 


rn 


Semantics: 

number-of-buffers 
This field can be any number and specifies the number of buffers for the file. The default value 
is l. 

Example: 


FILE CISKFILE CRUFFERS = 2)% 
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DEVICE 
The DEVICE file attribute specifies the type of input/output (I/O) device on which the file is to reside. 
SDL and UPL Syntax: 


—— DEVICE = 
CARD 
—— CARD_PUNCH 
i in ae BACKUP 
BACKUP DISK 
BACKUP TAPE 
NO BACKUP 
OR BACKUP 


OR BACKUP DISK 
OR BACKUP TAPE 
— CARD_READER 

— CASSETTE 

DATA_RECORDER_80 

— DISK a 


SERIAL 
RANDOM 
DISK_FILE — 
— SERIAL 
— RANDOM 
DISK_PACK 
— SERIAL 
— RANDOM 
— PORT 
PRINTER 
ee, FORMS met BACKUP 
BACKUP DISK 
BACKUP TAPE 
NO BACKUP 
OR BACKUP 


OR BACKUP DISK - 
OR BACKUP TAPE 
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PUNCH_PRINTER — __ 
-FORMS BACKUP 


BACKUP DISK 
BACIXUP TAPE 

NO BACKUP 

OR BACKUP 

OR BACKUP DISK 
OR BACKUP TAPE 


QUEUE ( <max-messages> ) eT eee 
FAMILY (<size >) 


READER_PUNCH_PRINTER — 
FORMS - BACKUP 

— BACKUP DISK 

— BACKUP TAPE 

— NO BACKUP 

- OR BACKUP 

~ OR BACKUP DISK 

— OR BACKUP TAPE 
READER_SORTER 


REMOTE ( <max-messages-> ) isis Peeran inate Geen 
WITH HEADERS 


SORTER_READER 
i 
TAPE_NRZ 

TAPE_PE 

TAPE_7 

TAPE_9 
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Syntax Semantics: 


BACKUP 
The keyword BACKUP causes the printer or punch file to be written to the designated printer 
or punch backup device. The designated printer or punch backup device is set by the MCP options 
PBD (Printer/Punch Backup Disk) and PBT (Printer/Punch Backup Tape). 


BACKUP DISK 
The keywords BACKUP DISK cause the printer or punch file to be written to the backup disk 
device. The MCP option PBD must be set. 


BACKUP TAPE 
The keywords BACKUP TAPE cause the printer or punch file to be written to the backup tape 
device. The MCP option PBT must be set. 


CARD 
The keyword CARD specifies that the device type of the file is a card reader. This keyword is 
the same as the CARD__READER keyword. 


CARD__PUNCH 
The keyword CARD__PUNCH specifies that the device type of the file is a card reader and card 
punch. 


CARD__READER 
The keyword CARD__READER specifies that the device type of the file is a card reader. This 
keyword is the same as the CARD keyword. 


CASSETTE 
The keyword CASSETTE specifies that the device type of the file is a cassette. 


DATA__RECORDER__ 80 
The keyword DATA_.RECORDER__ 80 specifies that the device type of the file is an 80-column 
card reader. 


DISK 
The keyword DISK specifies that the device type of the file is disk. This keyword is the same as 
the DISK__FILE keyword. 


DISK__FILE 
The keyword DISK__FILE specifies that the device type of the file is disk. The keyword is the 
same as the DISK keyword. 


DISK__PACK 
The keyword DISK__PACK specifies that the device type of the file is disk pack. 


FAMILY 
The keyword FAMILY causes a group of subqueues to be assigned to the queue file. 


FORMS 


The keyword FORMS specifies that the printer or punch file has a special form. Operator action 
must be taken to insure that the special form is on the device before writing to the file. 


1137833 4-25 


B 1000 Systems SDL/UPL Reference Manual 
Declarations 


max-messages 


This field specifies the total number of messages that can be written to the file by another program 
or process before the file becomes full. This field applies to files that have a device type equal 
to QUEVE or REMOTE. 


NO BACKUP 


The keywords NO BACKUP specify that the printer or punch file is not to be written to a printer 
or punch backup device. 


OR 
The keyword OR specifies that additional backup keywords follow. These keywords are BACKUP, 
BACKUP DISK, BACKUP TAPE and NO BACKUP. 
PORT 
The keyword PORT specifies that the device type of the file is a BNA port file. 
PRINTER 
The keyword PRINTER specifies that the device type of the file is a line printer. 
PUNCH__PRINTER 
The keyword PUNCH__PRINTER specifies that the device type of the file is a card punch and 
card interpreter. 
QUEUE 
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The keyword QUEUE specifies that the device type of the file is a queue. 


A queue file is a temporary file structure maintained as an input and output file. Queue files are 
accessed with read and write operations that are conceptually identical to I/O operations which 
are performed on all other devices. Queue files can be declared as a family of files. 


A queue file is a specialized file structure maintained by the MCP as a means of Inter-Process 
Communication (IPC). A queue file contains a list of messages (possibly an empty list) to which 
messages can be written and from which messages can be read. Queue files have a head and a 
tail record. The head (top) of a queue file is the first message in a queue. This is the message 
that is accessed by a read operation and generally is the message that has been in the queue file 
the longest time. The tail (end) of a queue file is the last message in the queue file to which the 
next written message is linked. A queue file is basically a first-in, first-out (FIFO) structure. 


Queue files can be shared by several programs. When a queue file is opened, the queue driver 
in the MCP compares the 20-character file identifier with the names of already opened queue files. 
If the named queue file is opened by another program or process, the queue file is linked to the 
existing queue file and the USER__COUNT field in the disk file header is incremented. If the 
queue file is not opened, a new queue file is created as described by the parameters in the file 
parameter block (FPB). When a queue file is shared by several programs, the program that 
originally opened the queue file controls all file attributes of that queue file. 
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Messages stored in a queue file can reside on disk or in memory. At the time the queue file is 
created, an area of system disk is obtained for the queue. This area is of sufficient size to hold 
the entire queue. Queue file messages are stored on disk if one of the following situations occurs. 


e The message being written to the queue file makes the count of messages in the queue file great- 
er than the number of buffers for the queue file. In this case, the tailmost message is written 
to disk. 


e The B 1000 memory management system needs the space used by an infrequently-accessed queue 
file. Therefore, it rolls the messages out to disk. 
Messages are stored in a variable-length format. Any record whose length is less than the de- 
clared record-size uses only the amount of memory required to write the message. 


Messages are stored in a queue file as a linked list of message descriptors. Each message descrip- 
tor is an 80-bit system descriptor with two additional link fields. The system descriptor describes 
the text of the message according to standard MCP conventions. 


When a queued message is in S-memory, it is stored in a memory link called a message buffer. 
No queue file can have more than the declared number of messages in the buffer, including mes- 
sages that are being moved between disk and S-memory. The buffers are allocated from a com- 
mon pool of empty buffers. 


READER__PUNCH__PRINTER 
The keyword READER__PUNCH__PRINTER specifies that the device type of the file is a card 
reader, card punch, and card interpreter. 


READER__SORTER 
The keyword READER SORTER specifies that the device type of the file is a reader sorter. 


REMOTE 
The keyword REMOTE specifies that the device type of the file is remote. Files that have a device 
type equal to REMOTE can read and write messages to the network controller. 


Examples: 
FILE ANNOC CCEVICE = REMOTE); 
FEAC ANNOC CMessage)s 


FILE ANNOOD CDEVICE = REMOTECZ0) WITH HEATERS); 
FEAT ANNOC CEuffer), 
Message t= SUESTRCEufferre49)s 


FILE ANNOGD CLEVICE = REMOTEC2O)» REMGTE_KEY> 


AUMBER_CF_STATICNS = 2)3 
WRITE ANNOG (CCOZ0C7000) C*message"), 
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This field can be any valid number and specifies the number of subqueues or queue-file families 
in the file with a device type equal to QUEUE. 


Queue-file families are a group of queues that share I/O descriptors. A group of queues have a 
multi-file-identifier and are accessed as a subfield of the queue-file family. A subscript must be 
specified in order to identify the subqueue in a queue-file family for read or write operations. 


Queue-file families are declared with the FAMILY keyword. 


Each member of the queue-file family is accessed with a numeric key, based on the order in which 
the queues are declared. The first subqueue has number 0 and the last has number n-1, where 
n is the number of subqueues. Specifying an index of —1 requests an unspecified read from the 
queue-file family. An unspecified read operation scans through the queues and returns the top mes- 
sage from the first non-empty queue in the family. 


SORTER__READER 


The keyword SORTER__READER specifies that the device type of the file is a reader sorter. 


TAPE 


The keyword TAPE specifies that the device type is tape. 


TAPE__NRZ 


The keyword TAPE__NRZ specifies that the device type is tape with the Non-Return to Zero 
(NRZ) recording mode. 


TAPE__PE 


The keyword TAPE__PE specifies that the device type of the file is tape with the phase encoded 
(PE) recording mode. 


TAPE__7 


The keyword TAPE__7 specifies that the device type of the file is a 7-channel tape. 


TAPE_9 


The keyword TAPE_9 specifies that the device type of the file is a 9-channel tape. 


WITH HEADERS 


The keywords WITH HEADERS applies only to remote files and specifies that a 50-byte message 
header is supplied/expected in all read and write operations to the remote file. 


Examples: 


FILE CUT_MASTER CCEVICE = PRINTER 


% The fite OLT_MASTER is 
CR BACKUPF CISK 2% orinted if the tine printer 
Ch PACKUP TAPE); % is avaéilatie. CGtherwisee a 
% backup output file is 
% created con disk or tape. 


FILE SUMMAFY CLABSEL = TEEYROLL"/"W2%, Z The twe files» W_ 2 SUMMARY 
CEVICE = CISK_FACK)> % and W_2_REPURT» are declarece 
KFPORT CCEVICE = FRINTER FORMS Z% W2_SUMMAKY has the tabet 
GR BACKUF CISK); X PAYROLL/W2 and device tyne cf 
% DISK_PACK. W_2@_REPCRT has 
% the device tyre of PRINTER 
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END__OF__PAGE__ACTION 


The END__OF__PAGE__ACTION file attribute causes the write operations to return the end-of-file 
exception when the end of page is encountered on the line printer. The program can specify action 
to be taken with ON EOF keywords in the WRITE verb. The default is no automatic end-of-page re- 
porting. 


SDL and UPL Syntax: 


Ne 


FILE DISKFILE (DEVICE = CISKs 
EULINCREVENTEC = 2)3 


—- END_OF_PAGE_ACTION 


Example: 


EU__INCREMENTED 


The EU_.INCREMENTED file attribute specifies the disk drive on which the first area of a file is 
to be written. Each subsequent area is then written on the next drive. If the next drive does not exist, 
the next area of the file is written to the first drive and so on. By default, files are written to one 
disk drive. 


SDL and UPL Syntax: 


—— EU_INCREMENTED = <drive-number> —_———_ 


Syntax Semantics: 


drive-number 
This field can be any valid number within the range 0 to 15 and specifies the disk drive number 
of a head-per-track or systems disk pack. If <drive-number> is not an available disk pack, then 
0 is used. 


Example: 
FILE LINE COEVICE = PRINTER» 
ENO_OF_FAGE_ACTION); 


EU__SPECIAL 


The EU__SPECIAL file attribute specifies the disk drive on which the file is to be written. By default, 
areas of the file are allocated anywhere on disk. 


SDL and UPL Syntax: 


—— EU_SPECIAL = <drive-number> | 


Syntax Semantics: 


drive-number 
This field can be any number within the range 0 to 15 and specifies the disk drive on which the 
file is to be written. Only head-per-track and systems disk packs are valid. If the drive is not avail- 
able, <drive-number> is set to 0. 
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Example: 


FILE DISKFILE COEVICE = CISK> 
EU_SPECIAL = 2)3 


EXCEPTION__MASK 


The EXCEPTION__MASK file attribute specifies the types of exceptions that the program can handle 
for the file. By default, no exceptions are to be reported in the exception mask. 


SDL and UPL Syntax: 


—— EXCEPTION_MASK = <exception-bits> $$. 


Syntax Semantics: 
exception-bits 


This field must be a 24-bit value. Each bit signifies which exception is to be reported in the excep- 
tion mask field for read and write operations. The default value is @000000@. 


Example: 


FILE QISKFILE COEVICE =CISK» 
EXCEPTIGA_MASK = GFFFOQOQOG); 


FILE_ TYPE 


The FILE__TYPE file attribute specifies the file type of the created file. In particular, B 1000 compilers 
specify a FILE__TYPE = CODE for their resulting code files. The default is DATA. 


SDL and UPL Syntax: 


— FILE_TYPE = DATA —— | 


INTERPRETER 
CODE —— 
INTRINSIC 
PSR_DECK- 


Syntax Semantics: 


CODE 
The keyword CODE causes the file being created to be a code file. 


DATA 
The keyword DATA causes the file being created to be a data file. 


INTERPRETER 
The keyword INTERPRETER causes the file being created to be an interpreter file. 


INTRINSIC 
The keyword INTRINSIC causes the file being created to be an intrinsic file. 
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PSR__DECK 
The keyword PSR__DECK causes the file being created to be a pseudo-reader file. 


Example: 
HOST_NAME = “EGSTA"™ 
HOST__NAME 
The HOST__NAME file attribute specifies that the file resides on a remote BNA host system. 
SDL and UPL Syntax: 


—— HOST_NAME = “ <host-name> ” — 


Syntax Semantics: 


host-name 
The field can be any character string up to 17 characters long which specifies the name of the 
remote host system. 


Example: 


FILE QUT CCEVICE = CISK» 
FILELTYPE = CCCE)s 


INVALID__CHARACTERS 


The INVALID__CHARACTERS file attribute applies only to printer files and specifies the type of in- 
valid-character reporting that is to be done. 


When a printer file includes a print character that is not valid on the line printer, an invalid-character 
exception is reported to the MCP. The value of the INVALID_-CHARACTERS file attribute deter- 
mines the action taken when invalid characters are encountered while printing a file. The default value 
is 2. 


SDL and UPL Syntax: 


— INVALID_CHARACTERS = 0 


1137833 4-31 


B 1000 Systems SDL/UPL Reference Manual 
Declarations 


Syntax Semantics: 


0 
The keynumber 0 causes the MCP to report all printed lines containing invalid characters. 
1 
The keynumber 1 causes the MCP to report the first print line containing any invalid characters 
and then to terminate the program. 
2 
The keynumber 2 causes the MCP to report only the first print line that contains any invalid char- 
acters and to continue printing. 
3 
The keynumber 3 causes the MCP not to report any print lines that contain invalid characters. 
Example: 
FILE LINE CCEVICE = PRINTER. 
INVALID_CHAKACTERS = Z)> 
LABEL 


The LABEL file attribute specifies an external file name for the file as it appears, or as it is to be 
stored in the disk directory. The file identifier in the FILE declaration statement is the default name. 
The LABEL file attribute writes the file identifiers in the file parameter block (FPB). 

If only the multi-file-identifier is specified, the file identifier is assigned blank characters. 

The pack identifier is not affected by the LABEL file attribute. 


The MCP uses only the first ten characters of each identifier. 


SDL and UPL Syntax: 


— LABEL = “ <multi-file-identifier> ” ee 
/" <file-identifier> ” 


Syntax Semantics: 


multi-file-identifier 
This field can be any valid 10-character identifier that follows the B 1000 file-naming convention. 


file-identifier 
This field can be any valid 10-character identifier that follows the B 1000 file-naming convention. 


Example: 


FILE DISKFILE CDEVICE = CISK, 
LAPEL = "MASTER"/"FILE")3 
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LABEL__TYPE 


The LABEL__TYPE file attribute is valid only for tape and printer files and specifies the label type 
of the file. The BURROUGHS standard label and the ANSI standard label are the same. The default 
LABEL__TYPE label is the ANSI standard label. 


SDL and UPL Syntax: 


— LABEL_TYPE = UNLABELED 
= BURROUGHS 
ANSII 


Syntax Semantics: 


UNLABELED 
The keyword UNLABELED causes the file to be unlabeled. 


BURROUGHS 
The keyword BURROUGHS causes the file to have the Burroughs standard label. 


ANSI 
The keyword ANSI causes the file to have the ANSI standard label. 


Example: 


FIL€ LINE CCEVICE = FRINTER, 
LABEL _TYPE = EURRCUGHS )> 


LOCK 


The LOCK file attribute requests the MCP to enter the external file name into the disk directory. The 
‘LOCK file attribute is overridden if the file is closed with the purge option. 


There are two ways to permanently close a file: with the CLOSE verb, or with an implied close when 
the program goes to end of job. 


If a tape or disk file is explicitly closed and the LOCK file attribute is specified in the file declaration, 
the file identifier remains in the disk directory. The LOCK file attribute is used to close the file when 
either a CLOSE REMOVE; or CLOSE CRUNCH; statement is specified. The LOCK file attribute is 
not used to close the file when CLOSE PURGE; statement is specified. 


An implied close occurs under two conditions: when a program goes to end of job with the file still 
open and when a program is discontinued by using the MCP commands DS or DP. A file is not closed 
if the system halts. 


If an implied close occurs, the file is locked into the disk directory only if the LOCK file attribute 
is specified. If not, the file is closed with the release option. Only new files are not entered in the 
disk directory if the LOCK file attribute is not specified and the file is implicitly closed. 


The default is no LOCK. 
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SDL and UPL Syntax: 


— Lock $$ 


Example: 
FILE DISKFILE CDEVICE = CISK> 
LOCK); 


MODE 


The MODE file attribute specifies the type of parity checking and translation that is to be used for 
the file. The default is odd parity checking or EBCDIC translation, whichever is applicable. 


SDL and UPL Syntax: 


—— MODE = ASCII 
EBCDIC 
BCL 
BINARY 


Syntax Semantics: 


ODD 
The keyword ODD specifies that odd-parity checking is to be used. 


EVEN 
The keyword EVEN specifies that even-parity checking is to be used. 


EBCDIC 
The keyword EBCDIC specifies that EBCDIC translation is to be used. 


ASCII 
The keyword ASCII specifies that ASCII translation is to be used. 


BCL 
The keyword BCL specifies that BCL translation is to be used. 


BINARY | 
The keyword BINARY specifies that BINARY translation is to be used. 


Example: 


FILE TAPEFILE CDEVICE = TAPE, 
MOCE = CCC); 
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MULTI__PACK 


The MULTI__PACK file attribute specifies that a single file can reside on more than one disk pack. 
The default is that the entire file must reside on one disk pack. 


SDL and UPL Syntax: 


—- MULTI_PACK i 


Example: 


FILE DISKFILE (DEVICE = CISK> 
MULTI_PACK)3 


NUMBER__OF__STATIONS 

The NUMBER__OF__STATIONS file attribute specifies the maximum number of stations that are at- 
tached to this remote file. The maximum number of stations that can be attached is system dependent 
and is determined by the network controller. The NUMBER__OF__STATIONS file attribute must not 
specify more stations than the network controller has defined. The default is 1. 


SDL and UPL Syntax: 


— NUMBER_OF_STATIONS = <number> —_————————_ 


Syntax Semantics: 

number 
This field specifies the maximum number of stations that are to be attached to the remote file 
when the remote file open is approved by the network controller. 

Example: 


FILE REMCTEFILE CNEVICE = REYMOTE>s 
NUMBER CF STATICNS = 5)5 


OPEN__OPTION 
The OPEN__OPTION file attribute specifies how the file is to be opened. 
SDL and UPL Syntax: 


iy ee 
—— OPEN_OPTION = INPUT Ee eee I 


— OUTPUT 
—— NEW 
—— DEFAULT 
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Syntax Semantics: 


INPUT 
The keyword INPUT causes the file to be opened input. 
OUTPUT 
The keyword OUTPUT causes the file to be opened output. 
NEW 
The keyword NEW causes the file to be opened as a new file. 
DEFAULT 
The keyword DEFAULT causes the file to be opened using the following default options for each 
device. 
Device Option 
CARD INPUT 
PRINTER OUTPUT 
PUNCH OUTPUT 
DISK INPUT 
REMOTE INPUT/OUTPUT 
TAPE INPUT 
QUEUE INPUT/OUTPUT 
Example: 


FILE CISKFILE CDEVICE = CISK, 
OPEN _ CPTICN = INPUT/OUTPUT/NEW)3 


OPTIONAL 


The OPTIONAL file attribute specifies that the file can be missing without suspending program execu- 
tion. 


Performing a read operation from a missing file generates the ODT message FILE MISSING. If the 
OPTIONAL file attribute is specified, the MCP command OF (optional file) causes the program to 
perform the ON EOF branch for any read of the file. Program execution then continues. The default 
is no OPTIONAL which requires the file to be present. 


SDL and UPL Syntax: 


— OPTIONAL 2 


Example: 


FILE DISHKFILE CDEVICE = ULISK> 
UPTiCONAL D> 
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PACK__ID 


The PACK__ID file attribute specifies the disk-pack identifier for the disk file. The default pack identi- 
fier is the system disk. 


SDL and UPL Syntax: 


— PACK_ID = “ <pack-identifies> "¢ — ££ £@££-£@ —@£@4—-@——————__| 


Syntax Semantics: 


pack-identifier 
This field can be any identifier that follows the B 1000 disk file naming convention for disk files. 


Example: 


FILE DISKFILE CDEVICE = CISK> 
PACK_IC = "USER™); 


PROTECTION 
The PROTECTION file attribute specifies a security type to the file. The default is 0. 


SDL and UPL Syntax: 


—— PROTECTION = <number> $$ 


Syntax Semantics: 


number 
This field can be any number between 0 and 4, inclusive, and is used to define the security type. 


The security type for each value is listed in the following table. 


Security 

Value Type 
0 Default 

1 Public 
2 Private 

3 Guard 


Example: 


FILE CISKFILE COEVICE = CISK,» 
PACTECTICN = 293 
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PROTECTION__lO 
The PROTECTION__IO file attribute specifies whether the file is to be opened input, output, or both. 


SDL and UPL Syntax: 


—— PROTECTION_IO = <number> 7 


Syntax Semantics: 


number 
This field can be any number between 0 and 2, inclusive. The meaning of each value of <num- 


ber> follows. 


Value Definition 
0 Input/Output (Default) 
1 Input 
2 Output 


Example: 


FILE DISKFILE COEVICE = CISK> 
PRCTECTION_IO = 2); 


RECORDS 


The RECORDS file attribute specifies the number of characters per record or per block. 


The default values in bytes for each device follow. 


Device Bytes 


CARD 80 
DISK 180 
PRINTER = 132 
ODT 72 


All Others 80 


SDL and UPL Syntax: 


—— RECORDS = a i <physical-size> 7 cai 
<logical-size> / << records-per-block> 
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Syntax Semantics: 


physical-size 
This field can be any number and specifies the number of characters per block. 


logical-size 


This field can be any number and specifies the number of characters per record. 


records-per-block 
This field can be any number and specifies the number of records per block. 


Example: 


FILE OLSHKFILE COEVICE = UISK> 
RECCROS = 180/10), 


REEL 


The REEL file attribute applies only to magnetic tape files and specifies the starting reel number. 


For output tape files, the MCP uses the supplied reel number as the starting reel number. This reel 
number is written in the tape label. If more than one physical tape is needed to hold the file, the MCP 
automatically increments the reel number by one and writes the new reel number in the label of the 


next tape. 


For input tape files, the MCP starts reading the tape file at the specified reel number. This means 
that the MCP looks for the tape whose label contains the same reel number as that specified in the 
REEL file attribute, as well as the name of the requested file. As in output, the MCP automatically 
increments the reel number by one if the physical tape has been read but the actual end of file has 


not been reached. 
The default reel number is 1. 


SDL and UPL Syntax: 


— REEL = <reel-number> i 


Syntax Semantics: 


reel-number 


This field can be any number and specifies the starting reel number in which to read or write. 


Example: 


FILE TAPEFILE CDEVICE = 
PEEL = 5) 
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REMOTE__KEY 


The REMOTE_KEY file attribute directs read and write operations to specific stations. The 
NUMBER__OF__STATIONS file attribute must be specified in conjunction with the REMOTE__KEY 
file attribute. The remote key is a 10-character field containing station number, message length, and 
message type. This 10-character field is the <remote-key-identifier > field in the syntax for the READ 
and WRITE verbs. The following is the format of the remote key. 


Length 
Remote Key Fields Data Type in Bytes Value Range 
Station number CHARACTER 3 1 — 999 
Message length (bytes) CHARACTER 4 0 — 4095 
Message type CHARACTER 3 000 (write) 


or 001 (read) 


The default is no REMOTE_ KEY. 
SDL and UPL Syntax: 


— REMOTE_KEY i 


Example: 


FILE GEMCTEFILE CCEVICE = REMOTE? 
REMOTE_KEY> 
NUMBER _OCF_STATIUNS = 4)3 


SAVE 


The SAVE file attribute specifies the number of days the declared file is to be saved. Files are never 
removed from the system automatically. The default is 30. 


SDL and UPL Syntax: 


—— SAVE = <number-of-days> > —_—_ 


Syntax Semantics: 


number-of-days 
This field can be any number and specifies the number of days to save the disk file. 


Example: 


FILE OLSKFILE COEVICE = CISK, 
SAVE = 45)5 
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SECURITYTYPE 
The SECURITYTYPE file attribute specifies a security type to the file. The default is 0. 


SDL and UPL Syntax: 


—— SECURITYTYPE = <number> J _$$_$_$_$_ 


Syntax Semantics: 


number 
This field can be any number between 0 and 4, inclusive, and is used to define the security type. 


The security type for each value is listed in the following table. 


Security 
Value Type 
0 Default 
1 Public 
2 Private 
3 Guard 


Example: 


FILE DISKFILE COEVICE = CISK, 
SECURITYTYPE = 2); 


SECURITYUSE 
The SECURITYUSE file attribute specifies whether the file is to be opened input, output, or both. 


SDL and UPL Syntax: 


—- SECURITYUSE = <number> OO 


Syntax Semantics: 


number 
This field can be any number between 0 and 2, inclusive. The meaning of each value of <num- 


ber > follows. 


Value Definition 

0 Input/Output (Default) 
1 Input 

2 Output 


Example: 


FILE OISKFILE CDEVICE = CISKH> 
SECURITYUSE = 2)5 
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SERIAL 


The SERIAL file attribute specifies the serial number of the output media. This media can be tape 
or disk. The default is no serial number. 


SDL and UPL Syntax: 


—— SERIAL = ar Dial <number> [ac [ei 
" <character-string> "° ————-—— 


Syntax Semantics: 


number 
This field can be any valid number and specifies the serial number for the output media. 


character-string 
This field can be any character string and specifies the serial number for the output media. 


Examples: 
FILE TAPEFILE COEVICE = TAPE> 
SERIAL = 123456)3 
FILE TAPEQUT CREVICE TAPE» 


hou 


Ski TAL "GUTPLT™ 3 


TRANSLATE 
The TRANSLATE file attribute specifies that a translation is to be performed on the file by the MCP. 


The MCP supplies a multi-file-identifier to the specified file identifier. The multi-file-identifier is 
TRANSLATE. 


The TRANSLATE file attribute sets the translate boolean in the file parameter block (FPB). 
SDL and UPL Syntax: 


—— TRANSLATE = “ <file-identifier> “’ —_———— 


Syntax Semantics: 

file-identifier 
This field can be any valid file identifier that follows the B 1000 file naming convention and 
specifies the name of the file that contains the translate table. 


Example: 
FILE TFILE CUEVICE = £iske %4 The resulting translate 


TRANSLATE = "TRANSFILE")s 2% file identifier is 
% TRANSLATE/TRANSFILE 
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USE_INPUT__BLOCKING 
The USE_INPUT__BLOCKING file attribute applies only to input disk, tape, or card files. 


For disk files, the record and block size specifications are taken from the disk file header (DFH). Any 
specifications for these file attributes are ignored. 


For tape files, the record and block size specifications are taken from the tape label. If this option 
is used for an unlabeled tape file, a run-time error results. 


For card files, the following record lengths are assumed. 


Number of 
Columns Length 
80 80 Bytes 
96 96 Bytes 
BIN 960 Bits 


The default is the record and block sizes that are specified in the file declaration. Those options omit- 
ted are set to default values. 


SDL and UPL Syntax: 


—~ USE_INPUT_BLOCKING ef 


Example: 
FILE CISKFILeE CDEVICE = CISK, 
USE_INPUT_BLOCKING D3 
USER__NAMED__BACKUP 


The USER__.NAMED__BACKUP file attribute specifies that if the printer file goes to backup, the 
name of the printer backup file is the name specified by the LABEL file attribute; otherwise a system 
backup number generated by the system. The default uses the system-assigned backup file names. 


SDL and UPL Syntax: 


—— USER_NAMED_BACKUP S| 


Example: 
FILE Lite CCEVITCE = PRINTER BACKUP DISK» 


USER_NAMED_ BACKUP» 
LAREL = "LINE"/ "BACKUP" )3 
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VARIABLE 


The VARIABLE file attribute specifies that the file has variable-length records. The default is fixed- 
length records. 


SDL and UPL Syntax: 


—— VARIABLE SS SSS SS 


Example: 


FILE OISKFILE COEVICE = 
VARIABLE D> 


WORK__FILE 

The WORK__FILE file attribute causes the job number of the program to be included as part of the 
file identifier. Workfiles are temporary files associated with a specific job and are removed when the 
program goes to end of job. The default is no workfile. 


SDL and UPL Syntax: 


— WORK_FILE 2 


Example: 


FILE OISKFILE COEVICE = CISK> 
WORK_FILED3 


SWITCH__FILE DECLARATION 


The switch-file declaration statement groups files together under a single file identifier. All files 
grouped into a switch file must be declared in a file declaration statement before they can be referenced 
in the switch-file declaration statement. 


A subscripted switch-file identifier is valid anywhere a file identifier is valid. 

If there are n files in a switch-file group, the subscript must range from 0 to n-1. The subscript selects 
a file from the switch-file group, based on physical order. The first file in the list (from the left) is 
switch file zero and the last is switch file n-1. 

If all the files in a switch-file group are declared with a device type equal to REMOTE, then the 
REMOTE_KEY file attribute can be used with the switch-file identifier. If all the files in the switch- 
file group are not declared with a device type equal to REMOTE, then the REMOTE_KEY file attri- 
bute cannot be used. 


SDL and UPL Syntax: 
— SWITCH_FILE <switch-file-identifier> fe )i + 
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Syntax Semantics: 


switch-file-identifier 
This field can be any valid SDL/UPL file identifier and specifies the name of the switch file. 


file-identifier 
This field can be any valid SDL/UPL file identifier and specifies the name of the file that is to 
belong to the group of files in the switch file. Example Program: 


Example Frogran: 


FILE CAROS COEVICE = CARD), 

TAFEL COEVICE = TAPES 
USE_INPUT_ELCCKING)> 

CISKI CCEVICE = CTISK> 
USE_INPUT_BLOCKING)>» 


Hil 


PUNCK CCEVICE = FUNCE)>» 
LINE (DEVICE = PRINTER), 
TAPEC COEVICE = TAPE, 


RECURDS = 280/74)>s 
DISKC COEVICE = CISK, 
FECORFLS = 3US5)5 


SWITCH FILE INPUT CCAROS» TAPET>» DISKI)>» 
OUTPUT CPUNCH» LINE» TAPEO» CISKO)s 


DECLARE INPUT_TYPE FIXED» 
CUTPUT_TYFE FIXED» 
COT_INPUT CHARACTER (3)> 
BUFFER CHARACTER (8003 


CISPLAY C™ENTER INPUT TYPE GR ENTER BYE TO GO TC END OF JoAnn); 
ACCEPT OCT_INFUTS 
IF GOT_LINPUT = "BYE" THEN CO3 

DISPLAY C"GUUD BYE"); 

STCPS 

END 

INPUT_TYPE 2= SINARY CSUBSTR CCOT_INPUT» 9» 1)) NOD 33 
CISPLAY C"ENTER OUTPUT TYFE OR ENTER BYE TO GO TO END OF vOou")s 
ACCEPT GDT_INPUT: 
If COT_LINPUT = "BYE" THEN CO} 

CISPLAY ("GOOD BYE"); 

STGPS 

ENDS 
QUTPUT_TYPE t= BINARY CSLSSTR COUT_INPUT» CG» 1)) MOD 33 
QPEN INPUT CINPUT_TYPE) IAPLTS 
OPEN OUTPUT CLUTPUT_TYPE) WITH CUTPUT> NEWS 
OC FOREVER; 
READ INPUT CINPUT_TYPE) CRUFFER)3 
CN EOF UNDDS 
WRITE UUTPUT COUTPUT_TYPE) CBUFFER)3 

ENDS 
CLOSE GUTPUT COUTPUT_TYPE) WITH LOCKS 
STUP3 
FINI3 
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DEFINES 


The define statement provides SDL/UPL programs with a macro definition facility by assigning a por- 
tion of the SDL/UPL source statements to an identifier. 


At compile time, every occurrence of define-identifier is textually replaced by a portion of the source 
statement specified in <text>. If the compiler control option DETAIL is set, these macro expansions 
are included in the source listing. If the DETAIL option is not set, only <define-identifier > is listed. 
If the compiler control options EXPAND__DEFINES and XREF are set, the macro expansions are 
cross referenced. 


The SDL/UPL compiler does not check the syntax of the <text> contents. When < define-identifier > 
is invoked, <text> must conform to the syntactical requirements of the statement containing < define- 
identifier >. 


<define-identifier > can be nested within another DEFINE statement. Twelve levels of nesting are al- 
lowed. 


SDL and UPL Syntax: 


—DEFIN eae define-identifier> 


[ es ee ] 


° 
B>—AS # <text> PAE, | Seer een eer eee 


Syntax Semantics: 


define-identifier 
This field can be any valid SDL/UPL identifier and specifies the definition identifier. Reserved 
words cannot be specified as <define-identifier >. However, <define-identifier> can be defined 
as a reserved word. Special words can be redefined and only lose their special significance within 
the scope of the definition. Refer to Appendix A for a complete list of reserved and special words 
recognized by the SDL/UPL compiler. 


parameter 
This field can be any valid SDL/UPL identifier and specifies the parameter that is associated with 
< define-identifier >. 


If more than one parameter is specified, the left-to-right order in which the parameters appear 
in <text> must be the same left-to-right order in which the parameters appear in the parentheses 
() or bracket [] characters. The number of parameters in <text> must equal the number of pa- 
rameters in the parentheses or bracket characters. 


The maximum number of parameters allowed is eight per <define-identifier >. 
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AS 
The keyword AS specifies that the first number sign (#) text-delimiter character is to follow. 
# 
The number sign (#) characters specify the delimiters of <text>. 
text 
This field is the text portion of the define statement that contains any SDL/UPL symbol including 
semicolons, but not the number sign (#) or percent sign (%) characters. The number sign (#) 
character is the end-of-text delimiter and the percent sign (%) character indicates that the remain- 
der of the source-image record is a comment. Specifying comments within the virgule asterisk and 
asterisk virgule (/* <comments> */) characters is allowed and the comment is not copied at invo- 
cation time. 
A maximum of 1024 characters can appear in <text>, excluding comments and superfluous 
blanks. Also, no unpaired parentheses or brackets can appear in <text>. 
All identifiers specified in <text> must be declared prior to an invocation of <define-identifier > 
and need not be declared prior to the define statement. 
Example 1: 
DEFINE PROC AS #&PRCCLOULEcSa: % The SOL/UPL compiter replaces 
% every occurrence of identifier 
%Z PrOC with PROCEDURE. 
Example 2: 
DEFINE COMPAKE (Xe) AS % When the SOL/UPL compiter 
# JF X «< Y THEN aC ldia> % encounters COMPARE CPl» P2);3 
ELSE aClLIGA #> ~ in & source statements the 
% following text is substituted. 
4 IF Pl «< P2 THEN 2C(1)1 43 
yA ELSE ¢€1)0a;5 
%~ The parameters Pl and P2 in the 
% the define statement are 
* interpreted as procedure 
& oOarameters. 
Example 3: 
DEFINE REPEAT AS #HABC CTACAs X) 43 % The source statement contained 
“ Z between the number sign C#) 
° % characters is copied into the 
Ps % SOL/UPL orogram whenever the 
lf X FEGL 9 THEN REPEATS %Z identifier REPEAT is snecified. 
% The IF statement invokes the 


~ 


define statement. 
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Example 4: 
CEFINEG TFIAL CA» Se C) AS he 
# YF CAD Eat ZERC THEN A t= BF % 
ELSE Co #3 v4 
Example 5: 
DEF TNE TRUE AS 4 a€1)139 fe» % 
FALSE AS # alliua &s vA 
A 
Example 6: 
DEFINE MAX AS # & IF S1 A t= X53 X 
& ELSE A s= Ys vA 
& ENO &e x 
% 
4 
v4 
yA 
A 
4 
yA 
A 
Example 7: 
CEFINF A AS # iF X GIF 10 % 
TEEN FROCKX &» ®, 
CCM) AS # X &= M;> vA 
A os % 
° % 
° bs 
CCZ ds 
BUMr IT BY Ch + SOs 
Example 8: 
DEFINE MAX_SIZE AS z 
# & IF GATACUMM 64 Z 
K ELSE 32 % 
R ENC @#3 & 
% 
vA 
& 
3 
z 
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This statement generates the 
IF statement whenever the 
identifier TRIAL is specified. 


The identifiers TRUE and FALSE 
beccme bcolean bit strings 
equal to 1 and O» respectively. 


This statement is avaitable 
to the SCLZUPL comotter but 
only A s= X or A 3= Y 15 
compiled» denending on the 
condittona! symbol Sle If 
the statement & SET SI has 
been encountered» A 2= Xe is 
used. If Si has not be set» 
or the & fFESET $1 has been 
encountered» then A t= Y 15 
usade 


two statemerts that fotlor 
the define statement expand te 
the foliowitng: 

X s= Z>5 

JF X GTR 19 THEN PROCX;? 

BUMP I EY CR # S)3 


The 


TF a conditional compiler 
contrc! option & SET CATACOQMM 
is scecified» the define 
identifier MAX_STI2E its reptaced 
by the number 64. It & SET 
NATACOMM i565 not Specified or 8&8 
FESET OATACOMM is specified» 
MAX SIZE is reolaced ov the 
number 32.6 
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SECTION 6 
EXPRESSIONS 


Expressions are the operational portions of statements. If a statement is analogous to a sentence, then 
expressions are the words and phrases within a sentence. All operational functions, such as comparison, 
arithmetic, and others, take place within expressions. Exceptions being the assignment and the regular 
procedure-call functions. 


The format of an expression is similar to the format of an algebraic expression. Operators, such as 
+, —, *, /, and so forth, are used as ‘‘infix’’ notation. Also, parentheses can be used to group the 
order of evaluation. Each operand can be prefixed with a unary operator. 


An expression is defined as recursive and can contain as many operands and operators as are required 
to produce the desired result. 


Expressions are evaluated by performing the indicated operations in a left-to-right order. The sequence 
in which the operations are performed is determined by the rules of operator precedence. The rules 
of operator precedence are described in Order of Precedence in this section. When operators have the 
same precedence, the sequence of operation is determined by the order of the appearance, from left 
to right. Parentheses can be specified to modify the normal hierarchical sequence of evaluation. An 
expression within parentheses is evaluated and its value is used in subsequent operations. 


The syntax and semantics of an expression are described as follows: 
SDL and UPL Syntax: 


ON te oer ee <operand> SS SS 
< r> 


unary-operato 


a <operand> a eee 


<unary-operator> 
Syntax Semantics: 


unary-operator 
This field can be any valid SDL/UPL unary operator. The unary operators are + (plus) and — 
(minus). 


operand 
This field can be any valid SDL/UPL literal or identifier. 


B 1000 Systems SDL/UPL Reference Manual 
Expressions 


operator 
This field can be any valid SDL/UPL operator. The valid SDL/UPL operators follow. 
Operator Function 


replace, delete left part 
replace, delete right part 


+ addition 
— subtraction 
* multiplication 
7. division 
MOD remainder 
= equal 
EQL equal 
- not equal 
NEQ not equal 
> greater than 
GTR greater than 
= greater than or equal 
GEQ greater than or equal 
< less than 
LSS less than 
= less than or equal 
LEQ less than or equal 
NOT not 
AND and 
OR or 
EXOR exclusive-or 
CAT concatenation 
UNARY OPERATORS 
The following are the unary operators. 
Operator Function 
+ plus 
— minus 


The unary operator acts upon one operand. It can never appear as an infix operator between two oper- 
ands. It can appear to the right of any other operator, including itself. 


Minus 


The unary minus (—) generates the two’s complement of the operand associated with it 
(—X = (NOT X) + 1). The operand can have any data type. If the data type is FIXED, the unary 
minus has the effect of reversing the sign, and the result is stored on the evaluation stack with a 
FIXED data type. If the operand is either a character or bit string, only the rightmost 24 bits are 
evaluated. Character or bit strings less than 24 bits are padded with leading zeroes up to 24 bits. The 
two’s complement of the string is generated and returned to the evaluation stack with a FIXED data 


type. 
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Expressions 
Example 
X s= “Le % Laentifier X ts assigned the value of vl. 
X t= wA3 % Identifier X 13 assigned tha two's complement 
z of icentifier Aw 
Plus 


The SDL/UPL compiler generates no code for the unary plus (+). The unary plus exists only for pro- 


gram documentation purposes. 


Example: 
X s= +41, 4% Identifier X ts assigned the vatue of 1. 
X s= +As %Z Identifier X is assigned the value of A. 


ARITHMETIC OPERATORS 


The following are the arithmetic operators. 


Operator Function 

+ Addition 

_- Subtraction 

: Multiplication 

/ Division yielding integer value of quotient 
MOD Division yielding integer value of remainder 


The arithmetic operators perform 24-bit arithmetic on two operands of any of the three data types. 
If both operands are declared with FIXED data types, sign analysis is performed. If the operands are 
not declared with FIXED data types, only the rightmost 24 bits of each operand are used in the 
evaluation. If an operand has a length less than 24 bits and is declared with a BIT or CHARACTER 
data type, leading zeroes are padded in the leftmost bits prior to the operation. 


The result of an arithmetic operation stores a 24-bit result on the evaluation stack. If both operands 
are declared with FIXED data types, the result is a FIXED data type. If either operand is declared 


with other than a FIXED data type, the result is a BIT data type. 
Addition 


The + (addition) operation causes the values of the two operands to be added. 


Examples: 
X s= A + Q@> % Identifier X 1s assigned the sum of 
% identifiers A and Be 
X <= 1 # A> % Identifier X ts assigned the sum of 


we 


1 plus the vatue of 


1137833 
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Subtraction 


The — (subtraction) operation causes the value of the right operand to be subtracted from the value 
of the left operand. 


Examples: 
X c= A = B; % Identifier X 18 assigned the vatue 
% of identifier A tess the vatue of 
% identifier RB. 
X s= A - 135 2 Idertifier X ts assiqned the value 
% of tdentifier A less 1. 
Multiplication 
The * (multiplication) operation causes the values of the two operands to be multiplied together. 
Examples: 
K d= A & BB; %Z Identifier X is assigned the vatue of 
z identifier A multiolied by the value 
2% of identifier 3. 
X s= A & 253 % Idertifier ¥ 15 assigned the value of 
2 :1dentifier A multionlied by 25-6 
Division 


The / (division) operation causes the value of the left operand to be divided by the value of the right 
operand. Any remainder is truncated. 


Examples: 
X t= 7 * S35 % Tderntifier X% 15 assigned the value 2. 
Y a= 3/7 % Identitier Y is assigned the value 9%. 
Zo3s= A / &B; % Yoertifier 7 is assigned the value of 


identifter A divided ty the vatue of 
identifier 8. 


The multiplication and division operators do not associate. 
Examples: 
CA * 8) / C does rot ecual A * €& / C) 
X = €4 * 5) JS 7% % identifier X ts assiqnec the value 2. 


Ye= 4 &« (5 F 75 % Identifier Y is assigned the vatue Oe 
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MOD 
The MOD operation is the modular operation. A modular operation is the value that is left (remainder) 
after a division operation is performed. The following formula is used in performing a MOD operation 
where a and b are any operands. 

a MOD b = a —- (b * (a / b)) 


Examples: 


A i= 7 MLO 3; 


w 


Identifier A is assigred the value eaual to 
f= (3 © €7 ¢ 3)) = 7 = ©3 * 2) = Ie 


ne 


6 >= =“¢f MOO 33 


73 


Identifier 8 is assigned the value eaquat to 
“7 = €3 «& C#7 7 3)) = =7 = 3 *% €22) = =te 


ae 


o 
se 
it 
Pol 
x-< 
[ap] 
a 
| 
~Y 
es 
ww 


Identifier C is assigned the value eaualt to 
5 - €C"7) *© €3 Ff €77))) = 3 =~ CO"7) * 0) = 3. 


xe 


iver} 
s 
WW 
a 
Ww 
_< 
(a) 
co 
i 
~) 
3 


Identifier D is assigred the vatue equal to 
C-3) = €Ce7) © £0"3) 7 €97))) = ©7535). — Cle7) *« 0 
= 3. 


Ww one 


Negative arguments do not follow the traditional definitions of modular arithmetic in mathematics. 
RELATIONAL OPERATORS 


The following are the relational operators. 


Operator Function 

= equal 

/= not equal 

> greater than 

< less than 

>= greater than or equal 
i less than or equal 
EQL equal to 

NEQ not equal 

GTR greater than 

LSS less than 

GEQ greater than or equal 
LEQ less than or equal 


The relational operators cause a comparison operation between two operands of any data type. If the 
comparison is TRUE, the 1-bit result, @(1)1@, is returned. If the comparison is FALSE, the 1-bit 
result, @(1)0@, is returned. 


If both operands are declared with FIXED data types, the operator does a true-sign comparison. If 
both operands are character strings, the shorter operand is padded on the right with blanks and a char- 
acter-by-character comparison using the EBCDIC collating sequence is performed. For all other oper- 
and combinations, leading zeroes are padded into the leftmost bits of the shorter operand. No sign 
analysis is performed and the operands are treated as positive values. 
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Identifier 
loentifier 
Identifier 
Idertifier 
Tdentifier 


Idertitier 


is assigned 
15 assigned 
is assigned 
is a3sioned 


is assitqned 


the 


the 


the 


the 


the 


the 


value 
vatue 
value 
value 
value 


value 


aCld0a~ 
aC(L)ia. 
7€1)04. 
a€1)99. 
aC Lia. 


@Cldid. 


1s asstgred 


LOGICAL OPERATORS 


The following are the logical operators. 


Operator Function 
NOT not 
AND and 
OR or 
EXOR exclusive-or 


The logical operators perform a bit-by-bit analysis on all three data types. The NOT logical operator 
is considered a unary operator and can appear to the right of any other operator (including itself). 
The result of each logical operator for every boolean value of X and Y is summarized in Table 6-1. 


Table 6-1. Boolean Logic Table 


Boolean 
Value Result 
NOT NOT 
x Y xX Y X AND Y X OR Y X EXOR Y 
0 0 1 1 0 0 0 
0 1 1 0 0 1 1 
1 0 0 1 0 1 1 
1 1 0 0 1 1 0 


Example: 


CLECLAFE CA» D> 


X 3s 


Y s= 


A o3 


W 


Pd 
t 


g 


C 


D 3 
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C» Cr Xe 


eCLIOQIGLIL1L9OGS 
aCLILOIOLLOVR; 


NOT Xs 


X AND Y3 


X OF Ys 


X EXOK Yer 


CAT OPERATOR 


The CAT operator is a concatenate operator that joins two strings of data and forms a new string. 
Any combination of data types or data strings can be concatenated. The resultant string cannot exceed 
8191 characters or 65,535 bits. 


oF 
vA 
vA 


h 


v4 


Expressions 


Y) EYTC@), 


Icentifiar A is assiqned the vatue ¢C(LILLOLV001L Ga. 


Tcentifier 8 i¢ assianed the value 4(€1)9001011099. 


Tcentifier C 1s assiqned the vatue aC LILOLOLLIL0OS. 


Tcentifier C is assianed the vatue «¢(1)100000104a. 


Character string concatenation is the most common concatenation operation. If two strings to be con- 
catenated are character strings, the result is a character string. Concatenation of any other combina- 
tions of data types results in a bit string. 


Example: 

DECLARE A 
ti 
c 
X 
Y 
Z 
XX 

A s= “ER, 

8 s= acid1o0o1rge 


=< 
ee 
i] 
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B CAT 8&3 


CHARACTER? 


BIT C3) 
FIXED. 
BvIT (6). 
ChARACTER 
Hit Ct1d>, 
BIT (27); 


(23> 


% Joentifier A comprises a character string 
% containing the tetter 6. 


% Identifier B comrrises a bit string that 
% contairs the hinary vatue of five. The 
% tenath of the tdentifier is three bits. 


% Jcentifier C comprises a fixed string that 
% contains the nositive €#) decimal vatue of 1C€. 


4 A btinary walue of 45 of a€1)1011014a 1s 
4 createca The tenath of the data string 


4 1s 


31x bits and the rasult of the 


4 concatenation is assigned to the identifier 


h Xe 
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Y s= A CAT As % A character strings comcrised of two bytes» 
% that has a value of "85" is created. This 
% value is assiaqned to the tdentifier Y. 


Zos= A CAT &s %~ A binary value of 1557 of @CLILITIODOGOLOLOLA 
% 35 created. The length of the data string 
% is tl bits. The result of the concatenation 
% 15 assigned to the identifier Ze 


XX = B CAT Cz %Z A tinary string equivalent to the SOL/UPL 
% cctal rotation alC3SGIGIDIOL2G is created. 
% The rasult of the concatenation 1s assigned 
Z te the identifier XX. 


X s= A CAT E s= 4&3 % the CAT overator 15 tower in orecedence than 
% the *= asstiqnment onerator. Identifier 8B 
%Z 1S set to a vatue of four before identifier 
% 6 15 Ccncatenated with identifier A. The 
% result of the concatenation 16 then 
%Z asstqnes te the identifier X. 


Example Program: 


DECLARE 
O01 TIME_OF_DAY BIT (€72)» 
03 HOURS BIT €16)- 
O03 MINUTES BIT (16)>» 
03 SECONDS BIT (16)» 
O03 TENTHS_OF_SECONDS BIT (8)>» 
03 AM_OR_PEK BIT €16)3 


TIME_OF_DAY 2= TIME CCIVILIAN» CHARACTER)3 

DISPLAY C"THE CURRENT TIME IS * CAT HOURS CAT "2" CAT MINUTES 
CAT "2" CAT SECONDS CAT “e* CAT TENTHS_OF_SECONDS CAT 
"=" CAT AM_OR_PM)3 

STOP? 

FINI; 


% This example program obtains the current time from the MCP» 

% displays the hours» minutes» seconds» tenths of a seconds and 

% AM or PM on the ODT.~ The CAT operator verb is used to concatenate 
% the message. 


Output from Example Program: 
% TESTO =2403 THE CURRENT TIME IS 12235216.0 PM 


CONDITIONAL EXPRESSION 


The conditional operator expression uses the keywords IF, THEN and ELSE or the CASE verb. Refer 
to Section 9 for a complete description of IF, THEN and ELSE keywords and the CASE verb. 
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REPLACEMENT OPERATORS 
The following are the replacement operators. 


Operator Function 


= delete left 
= delete right 


The replacement operation is performed within an expression and evaluation continues after the re- 
placement is made. 


Delete Left (:=) 


The delete-left operator assigns the value of the operand on the. right to the operand on the left. The 
new value of the operand on the left remains on the evaluation stack without any change to its attri- 
butes. Any truncation or realignment of data that takes place during the replacement is not reflected 
during evaluation of the expression. 


Example: 


DECLARE CC CHARACTER €2)¢ 
BY div C4)» 
AA CHARACTER C235 


AA 3= ER s= fC t= "6%; 
The following describes the action taken to evaluate the example. 


1. The value being assigned is the literal ‘‘6’’ (@F6@). 

2. The value@F6@is stored, left-aligned,into identifier CC.It is padded on the right with a blank 
@40@ character, because identifier CC has a data type equal to CHARACTER and is longer 
than @F6@. The resulting value of identifier CC is @F640@. 

3. The value @F6@ is stored, right-aligned with truncation, into identifier BB, because identifier 
BB has a data type equal to BIT and is shorter than @F6@. The resulting value of identifier 
BB is @6@. 

4. The value @F6@ is stored left-aligned into identifier AA and is padded on the right with a 
blank @40@ character, because identifier AA has a data type equal to CHARACTER and is 
longer than @F6@. The resulting value of identifier AA is @F640@. 


Figure 6-1 shows the status of the evaluation stack and each identifier as the evaluation of 
AA := BB:= CC:= ‘‘6”’ is performed. 


CC CC 
-_—> “6” —_ omintinnns > "6" 
AA “a a 
“6” _ "6" —_—_—> Empty 


Figure 6-1. Status of the Evaluation Stack 


G18302 
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Delete Right (::=) 


The delete-right (:: =) operator evaluates the operand to the right and stores the value into the memory 
location referenced by the operand to the left. The value of the operand to the right becomes 
unavailable during any further evaluations. The continued evaluation of the operands uses the value 
and attributes of the operand to the left of the operator. Any truncation or realignment of data that 
takes place during the replacement is reflected during the continued evaluation of the expression. 


Example: 


CECLARE CC CHARACTER €2)>» 
BE B81T C4)» 
AA CRKAFACTER Ce), 


AA 3= BE ts Cl ss Er, 
The following describes the action taken to evaluate the example. 


1. The value being assigned is the literal ‘‘6’’ (@F6@). 

2. The value@F6@is stored,left-aligned,into identifier CC and is padded on the right with a blank 
@40@ character, because identifier CC has a data type equal to CHARACTER and is longer 
than @F6@. The resulting value of identifier CC is @F640@. 

3. The value of identifier CC (@F640@) is stored, right-aligned with truncation, into identifier 
BB since identifier BB has a data type equal to BIT and is shorter than @F640@. The resulting 
value of identifier BB is @0@. 

4. The value of identifier BB (@0@) is stored, right-aligned into identifier AA and is padded on 
the left with binary zeros @000@, because identifier BB is a bit string. The resulting value of 
identifier AA is @0000@. 


Figure 6-2 shows the status of the evaluation stack and each identifier as the evaluation of 
AA := BB:: = CC::= ‘6’ is performed. 


CC BB 
> "6" aoe —— >> cc _——> CC —_—_—_—_> 
AA 
BB —_—_ BB —> “Empty” 


G18303 


Figure 6-2. Status of the Evaluation Stack 
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Replacement Operations in Procedures 
The following is an example of a delete left and a delete right replacement in a procedure. 


Examples: 


PFOCETCURE GCOC BIT VARYINGSs 
DECLARE X 3IT (C48); 
RETURN XK 33> "RESULT"; 
ENC GCUCs 


PRPCCEDURE GAD EIT VARYING: 
CECLA&E Y BIT €43); 
FETURN Y s= "RESULTS 

ENC GAL? 


Procedure GOOD returns a bit string, because identifier X remains on the evaluation stack after being 
evaluated and the data type of identifier X matches the procedure data type of BIT VARYING. 


Procedure BAD returns a character string as the result, because identifier Y is deleted from the 
evaluation stack after being evaluated. The character string ‘‘RESULT,’’ which remains on the 
evaluation stack, does not match the procedure’s data type of BIT VARYING. If the 
FORMAL__CHECK compiler option is specified, procedure BAD produces a run-time error. 


ORDER OF PRECEDENCE 


The following is the relative binding power (precedence) of the SDL/UPL operators. The operators 
are listed from highest to lowest order. 


+, — (unary operators) 
*, /, MOD 

+, — (additive operators) 
= fs, So) <> Se, <= 
NOT 

AND 

OR, EXOR 

CAT 

CASE 

IF-THEN-ELSE 
Replacement 


Refer to Section 9 for a complete description of CASE and IF, THEN, and ELSE. 


The replacement operators have higher precedence than any operator to their left and lower precedence 
than any operator to their right. 


The order of evaluation of operators having equal precedence is always from left to right within the 
expression. 


Parentheses and brackets force the enclosed expression to be evaluated completely before any 
operations outside the parentheses or brackets are evaluated. When parentheses or brackets are nested, 
the inner-most pair is evaluated first. Within the parentheses or brackets, normal rules of precedence 
are in effect. / 
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ADDRESS GENERATORS 


An address generator includes any expression that leaves an address on the top of the evaluation stack. 
The following is the syntax of address generators. 
BUMP <identifier> BY <expression> 


DECREMENT <identifier> BY <expression > 
IF <expression> THEN <identifier> ELSE <identifier > 


CASE <expression> OF (<identifier-l>, ....,<identifier-n>) 
<identifier-l1> := <identifier-2> 
<identifier-l1> ::= <expression> 


INDEXING (SDL PROGRAMS ONLY) 
There are two methods of indexing in an SDL program. They are: 


1. The descriptor provides the address and the index provides the offset from this address. 
2. The descriptor provides the offset and the index provides the address. 


The indexing operation causes the following three events to occur. 


1. The simple or array descriptor is loaded to the top of the evaluation stack. 

2. If the descriptor is an array descriptor, it is converted to a simple descriptor which describes 
the first (zero) element of the array. 

3. The address field of the descriptor is modified by adding the index to it. 


Self-relative data items cannot be indexed. For example, data items whose length is not greater than 
24 bits, are not in a structure, and do not remap some other data item. 


SDL Syntax: 


<simple-identifier-=> ————- [ i ee ae rad ee ———_ 


<array-identifier> —— 


ae ia 


Syntax Semantics: 


simple-identifier 
This field can be any valid SDL identifier with a length greater than 24 bits, and specifies the 
name of the template used for indexing. 


array-identifier 
This field can be any valid SDL array identifier and specifies the name of the template used for 
indexing. 


expression 


This field can be any valid SDL expression and specifies the offset to be used for indexing. If 
more than one <expression> is specified, the sum of the expressions is used. 
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Example: 


Assume the following is a memory layout of an SDL program and identifier N has the value of n 
(the offset from the beginning of identifier A to identifier B). Identifier D can be accessed using either 


of the two methods. 


Jk pe 9 fe 
4 ——__________5 


Method 1: 
UCCLAFE Ql A EIT €5000). 
3 RR» 
05 S ETT C5)» 
95 8 E17 €2)> 
V5 f BIT €3)» 
N EIT €24)> 
xX EIT (2733 
Ye ENA % This statemert moves identifier DO Cwith the offset 
% given bv identifier W) into tdentifier Xe 
Method 2: 
DECLARE A EIT €35000)>» 


O91 $8 REMAPS GASE> 
03 C BIT (5)> 
03 CC RIT €2)> 
G3 OF RIT (€3)> 
N OTT C24)» 
x BIT (2)3 
X z= C CA» CATA_LACCKHESS CAD; % This statement noves identifier 
z U0 Cwith the offset qiven by the 
% sum of identifier N and 
% DATA_LADDRESS CAD into identifier 
% Xe 
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NOTE 
The following must be noted concerning method 2. 


e The structure of identifiers B, C, D, and E, which remaps base is called a 
“‘template’’. 


e This template can be applied to any data area by providing the address part 
of the index. This is not the case when method 1 of indexing is used. 


e If identifier N contained the address of identifier B rather than the offset to 


identifier B from the beginning of identifier A, then the statements which as- 
sign identifier D into identifier X are identical (X := D [N];). 
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SECTION 7 
PROCEDURES 


Procedures are the basic program structure in an SDL/UPL program. Each is a self-contained func- 
tional unit within the program. 


This section is divided into four parts. These parts are Procedure Declaration Statement, Procedure 
Body, Procedure End Statement, and Procedure Invocations. 


PROCEDURE DECLARATION STATEMENT AND PARAMETERS 


The PROCEDURE declaration statement specifies the beginning of a new procedure and is optionally 
followed by parameters enclosed with the parenthesis “‘( )” characters. 


Specifying a parameter in the procedure declaration statement allows the procedure to reference values 
of identifiers that are outside the global range of the procedure. A parameter is a local identifier of 
the procedure. 


Every parameter specified in the procedure declaration must have an associated FORMAL or 
FORMAL__ VALUE declaration. 


FORMAL declarations must be separate statements from FORMAL__VALUE declarations. 

The data types of formal and formal-value parameters should match the data types of the correspond- 
ing actual parameters. The SDL/UPL compiler does not automatically check to ensure that these 
match. If the compiler control option FORMAL__CHECK is set, data types are checked at run-time. 
Varying formal parameters can be remapped. If a varying formal parameter is remapped, the parameter 
and its corresponding actual identifier must meet the remap restrictions. A warning message is gener- 
ated by the SDL/UPL compiler when a formal parameter is remapped. 


Formal parameter arrays can be given a variable number of elements by specifying the asterisk (*) char- 
acter within the parentheses characters in the formal declaration. 


Example: 


PRECECURE X CA); 
FORMAL AC*) FIXED; 


A level-structured identifier can be passed by naming only the 01 level of the structure. The subfields 
of the structure do not remain defined when the structure is passed to a procedure. Any attempt to 
remap the parameter generates a syntax error. 
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The syntax and semantics of the PROCEDURE declaration are described as follows: 
SDL Syntax: 


PROCEDURE <procedure-identifier> 
. FORWARD _| 
INTRINSIC <intrinsic-identifie.=> ————————_———_ 


fa: ae ale ee —— 
<type-part> 


ant 


FORMAL a ih <formal-element-part> ——— 
FORMAL_VALUE 


UPL Syntax: 


Ld PROGEDURE <procedure-identifie.> —————____-—____—_—>> 
FORWARD 


. 
( eee eee ) ae 
< 


type-part> 
FORMAL_ VALUE 
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Syntax Semantics: 


FORWARD 
The keyword FORWORD causes the procedure to be a forward procedure. 


Before a procedure can be invoked, it must be declared. A problem can arise when one procedure 
invokes another procedure which in turn invokes the first. In this case, whichever procedure ap- 
pears first must contain at least one reference to the second procedure which has not yet been 
declared. The FORWARD keyword allows the use of forward and recursive references by provid- 
ing a temporary procedure declaration. 


The FORWARD PROCEDURE statement does not eliminate the need for the normal procedure 
declaration which must follow in the program. 


The FORWARD PROCEDURE statement must be in the same scope as its associated procedure 
and it must be specified immediately prior to or after the declarations. 


The return data type must also be declared in the FORWARD PROCEDURE statement. 


When the FORWARD PROCEDURE statement refers to a procedure with parameters, it must 
include those parameters in the FORWARD PROCEDURE declaration. Also, any FORMAL dec- 
laration statement of the parameters must accompany the FORWARD PROCEDURE statement. 
Also, the formal declarations must appear within the actual procedure. 


INTRINSIC 
The keyword INTRINSIC is used only by SDL programs and causes the file specified by <intrin- 
sic-identifier > to be included. The intrinsic must begin at displacement 0 in a new segment. 


intrinsic-identifier 
This field can be any valid SDL intrinsic file name and specifies the intrinsic file to use. 


PROCEDURE 
The keyword PROCEDURE is required for a procedure declaration. 


procedure-identifier 
This field can be any valid SDL/UPL identifier and specifies the name of the procedure. 


parameter 
This field can be any valid SDL/UPL identifier and specifies the identifier that is used and not 
declared in the procedure. If <type-part> follows <parameter>, the value of <parameter> is 
returned to the statement that invoked the procedure. If there is no <type-part> specified, the 
value of <parameter> is passed from the statement that invokes the procedure. If this field is 
specified, a FORMAL or FORMAL__VALUE statement must immediately follow the procedure 
statement. 


type-part 
Refer to type-part later in this section. 


Procedures which return explicitly a value when completed are called ‘‘typed’’ procedures. The 
data type of the returned value must be specified in the procedure declaration. 


If the data type of the returned value does not match the specified data type, an advisory message 
is generated by the SDL/UPL compiler during compilation. 
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FORMAL 


When a parameter is specified in the procedure declaration and when it is desirable to have the 
corresponding identifier’s value changed, the keyword FORMAL is required, provided that any 
change to the value of <parameter> is made in the procedure. 


When a parameter is declared with the FORMAL keyword, the parameter refers to the address 
of the actual identifier. This requires that the parameter correspond to an identifier. All changes 
made to <parameter> are made to the actual identifier. 


If the parameter in the FORMAL part of the procedure declaration is an array, then only an array 
can be passed to the procedure. If an array is to be passed to a procedure as a parameter, the 
corresponding FORMAL declaration of the procedure must specify an array. 


FORMAL__VALUE 


When a parameter is specified in the procedure declaration and when it is not desirable to have 
the value of the corresponding identifier changed, the keyword FORMAL__VALUE is required, 
provided that any change to the value of <parameter> is made in the procedure. 


When <parameter> is declared with the FORMAL__VALUE keyword, <parameter> receives 
the value of the actual identifier. This identifier must yield a value. It can be a literal, a number, 
or an identifier enclosed in the quotation mark(‘‘)characters. The quoted identifier ‘‘<identifi- 
er>’’ notation forces references to the value rather than the address of the identifier. Changes 
to the formal-value parameter are known only within the scope of the procedure in which the for- 
mal-value parameter is declared. 


When the name (address) of an identifier is passed to a formal-value parameter, the value of the 
actual identifier is assigned to the formal-value parameter. Changes made to the formal-value pa- 
rameter are not reflected in the corresponding actual identifier. 


formal-element-part 


7-4 
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type-part 


The syntax and semantics of the type-part of the PROCEDURE declaration are described as follows: 


SDL and UPL Syntax: 


BIT (<bit-size> ) 

[| VARYING | 
CHARACTER ——— (<character-size> ) 
VARYING 


FIXED 
REFERENCE 
VARYING 


Syntax Semantics: 


BIT 
The keyword BIT in the procedure declaration specifies that the value of the parameter to be re- 
turned from the procedure has a data type equal to BIT. 


The keyword BIT in the formal declaration specifies that the data type of <parameter> passed 
to or returned from the procedure has a data type equal to BIT. 


CHARACTER 
The keyword CHARACTER in the procedure declaration specifies that the value of the parameter 
to be returned from the procedure has a data type equal to CHARACTER. 


The keyword CHARACTER in the formal declaration specifies that the data type of 
<parameter > passed to or returned from the procedure has a data type equal to CHARACTER. 


FIXED 
The keyword FIXED in the procedure declaration specifies that the value of the parameter to be 
returned from the procedure has a data type equal to FIXED. 


The keyword FIXED in the formal declaration specifies that the data type of <parameter > passed 
to or returned from the procedure has a data type equal to FIXED. 


REFERENCE 
The keyword REFERENCE in the procedure declaration specifies that the value of the parameter 
to be returned from the procedure has a reference identifier. 


The keyword REFERENCE in the formal declaration specifies that the data type of <parameter > 
passed to or returned from the procedure has a data type of a reference identifier. 
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VARYING 
The keyword VARYING in the procedure declaration specifies that the value of the parameter to 
be returned from the procedure can vary in data type and length. 


The keyword VARYING in the formal declaration specifies that the data type of <parameter> 
passed to the procedure can vary in data type and length. 


If the keyword VARYING follows the keywords BIT or CHARACTER, the length of the bit or 
character parameter can vary. 


bit-size 
This field can be any valid SDL/UPL number or expression that generates a value at compilation 
time and specifies the length in bits of the parameter. 


character-size 
This field can be any valid SDL/UPL number or expression that generates a value at compilation 
time and specifies the length in characters of the parameter. 

formal-element-part 


The syntax and semantics of the formal-element-part of the PROCEDURE declaration are described 
as follows: 


SDL and UPL Syntax: 


<identifier> ee <type-part> oe 
(+) 


( oe aan ——— 
a er 


Syntax Semantics: 


identifier 
This field can be any valid SDL/UPL identifier and specifies the name of the field whose address 
or value is passed to the procedure. 


(*) 
The asterisk character between the parenthesis characters specifies that the number of elements in 
the array specified by <identifier‘> can vary when the array is passed to the procedure. 


If the parameter in the FORMAL part of the procedure declaration is an array, only an array 
can be passed to the procedure. If an array is to be passed to a procedure as a parameter, the 
corresponding FORMAL declaration of the procedure must specify an array. 


type-part 
Refer to type-part in this section. 


The data type of the identifier which is passed to the procedure is specified by type-part. 
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Example 1: 


PROCECURE XYZ> 


ENG XYZ? 
Example 2: 


FORWARD PFOCETUFE X35 


ENG X} 
Example 3: 
PFGCELRUSE AEC CX» Yo 77% 
FCRMAL X FIXEC» 
Y CHARACTER VARYING» 


7 €*) RIT VARYING; 


END AGC? 


Example 4: 


PROCEDURE SQUARE CN)> 
FORMAL N FIXEDs 


FETURNS 


ENC SCUAFEs 


1137833 


wR mM Ne eH RH 


mr ae 


nw we 


NM rw WW HRHNW NM KW BW Oe NW 


nw wR eK 


Procedure identifier XYZ 
is declared. 


Procedure identifier X 1s 
being declared as a forward 


procedure. It can he invoked 
after this orocedure 
declaration and tefore the 


oprocedurs is encountered by 
the SOL/SUPL comoitere 


Procedure identifier ABC has 
three parameters that must be 
declared formaitty. Parameter 
X 13 an identifier with a data 
type ecual to FIXEO. Parameter 
Y is an identifier with a data 
type equal to CHARACTER and 
the Length ts catcutlated on 
each invocation cf orocedure 
ARC. Parameter 2? ts an array 
identifier with a varying 
number of elements Cwhich are 
catculated on each invocation 
of orocedure ABC) and a data 
type equal to 6bIT. 


Procedure identifier SQUARE is 
invoked from a coint in the 
proqrams. A value for identifier 
N is passed to the procedure 

by the invoking statement. 
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Example 5: 


PRCCELUFE CUBE CAe Be Cer); 

FORMAL CA» Be C) FIXED; 
PROCEOCURE SQUAKE (CN); 
FORMAL N FIXED; 


Two croceduress one nested 
within the other» are dectarede 
The procedure SQUARE can be 
invoked crty from within the 
procedure CUBE. 


rw RN BR 


~ 


TF A THEN FETUBN, 


cNC SCUARES 


If 8 TREN RETURN, 
FILSE O07 
SQUARE (CC); 
RETURNS 
ENC» 
ENC CUSEsS 


Example 6: 


PRGCECUFE ABSYAL (X) FIXECs 


xn 


The function orocedure ABSVAL 


FORMAL X FIXED; 4 ceturnrs tre absolute vatue of 
FETURN CIF X LSS O TEEN @ X 4 the parameter passed. Tne IF 
ELSE +¢ X)> Z excression within the RETURN 

ENG ABSVAL; Z statement returns the positive 


Ps 


vatue of the parameter. 


Example 7: 


PRUCE TURE MSG CHARACTER €20)3 
DECLARE CATA CEAFACTER (29)5 
bBETURN CACCEPT CATA); 

ENC MSCs, 


x 


The function vrocedure MSG 
accepts a message from the ODT 
and returns it to the invoking 
IF statement. 


mM ae FE 


IF SUESTR CvSE» Oy» 3) = "YES" 
THEN easeceed 
tLSE seecaned 
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PROCEDURE BODY 


The procedure body follows the procedure and the formal declaration statement. Declarations of local 
data, nested procedures, and statements are included in the procedure body. 


The RETURN verb takes one of two forms depending on the type of the procedure encompassing it. 
When a data type is specified for the parameters in the procedure declaration, the procedure is a 
“‘typed’’ procedure. If the procedure is a ‘‘typed’’ procedure, an expression must be returned to the 
point of invocation. If the procedure is not ‘‘typed’’, the RETURN does not allow an expression. Pro- 
cedure type-checking on the RETURN verb is performed at run time when the FORMAL__CHECK 
compiler control option is set. 


Within any given procedure, certain statements can be nested within other statements and can be ac- 
cessed like a procedure by an address generated by the larger statement. The most general nesting level 
is zero. The nesting level of any statement appears on the SDL/UPL compiler listing under the column 
NL. The following are the most common instances of statements occurring at nesting level 01 or great- 
er. 


1. The conditional statements following the THEN and ELSE keywords in the IF verb. 
2. Statements contained within a CASE group. 
3. Statements contained within a DO group. 


The SDL/UPL compiler always generates a RETURN statement (even if not specified) directly preced- 
ing the END <procedure-identifier >; statement. This ensures that the exit from a procedure is always 
correct. 


If the procedure is a ‘‘typed’’ procedure, the following value is returned based on the data type of 
the returned data item. 


Data Type to Value 

be Returned Returned 
BIT Zeros for the length specified 
CHARACTER Blank characters for the length specified 
FIXED Fixed Zero 
BIT VARYING Eight bits of zeros 
CHARACTER VARYING One blank character 
VARYING Fixed zero 


SDL Syntax: 


< procedure-statements 


RETURN 


<declaration-statement> 


<expression> 
RETURN_AND_ENABLE_INTERRUPTS 
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UPL Syntax: 


——_ <declaration-statement> —t}+ <procedure-statements. ———_————_ 


RETURN TU ew 
— <expression> 


Syntax Semantics: 


declaration-statement 
Refer to Data Declarations in Section 5 for a complete description of <declaration-statement >. 


procedure-statements 
These statements can be any valid SDL/UPL statements. 


RETURN 
The keyword RETURN causes the procedure to be exited and to resume program execution at the 
point where the procedure was invoked. 

expression 
This field can be any valid SDL/UPL expression and specifies the value that is returned to the 
point where the procedure was invoked. 

RETURN__AND__ENABLE__INTERRUPTS 


The keyword RETURN__AND__ENABLE__INTERRUPTS is used only by the MCP. This key- 
word causes a normal procedure exit to occur and enables the interrupt bits. 


PROCEDURE END STATEMENT 

The procedure end statement follows the procedure body and is the last statement in a procedure. 

SDL and UPL Syntax: 

—- END Wee ce, ; ——— —_____—_—_—___ 
er aaa a 

Examples: 


ENC FROCCECUFRE_ A; 


ENC MAIN _PRGCECURES 


PROCEDURE INVOCATIONS 


A procedure is invoked when a procedure identifier is specified in lexic level 0 of the program or in 
the body of another procedure. 


A “‘typed’’ procedure invocation produces a value because ‘‘typed’’ procedures return a value. Invok- 
ing a ‘‘typed’’ procedure requires that the expected parameters be specified in the procedure invocation. 
These parameters must be known to the procedure. 


Recursive procedure invocations are allowed; that is, a procedure can invoke itself. 


7-10 
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SDL and UPL Syntax: 


—— <procedure-identifier> 


ee ie ee ae 


parameter> 
Syntax Semantics: 


procedure-identifier 
This field can be any valid SDL/UPL procedure identifier that has been declared in a procedure 
declaration statement. It specifies the name of the procedure to invoke. 


parameter 
This field can be any valid SDL/UPL identifier that is declared as a parameter in the procedure 
declaration statement. It specifies the identifier to be passed to or returned from the procedure. 


If the parameter in the FORMAL part of the procedure declaration is an array, only an array 
can be passed to the procedure. If an array is to be passed as a parameter to a procedure, the 
corresponding FORMAL declaration of the procedure must specify an array. 


Example 1: 
Procedure UCeclaration PROCEDURE Az 
Procedure &edy : 
Procedure End END AS 
Frocedure Invocaticn A> 

Example 2: 
Procedure Ceclaration PFOCEGURE 5 CJeKoL Ds 
Format Cectlaration FORMAL (Je) FIXED, 

FORMAL VALUE L VARYING; 

Procedure End FNC 83 ; 
Procedure Invocaticn B CX» Yr (€27))5 
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Example 3: 


Procedure Oectlaration 
Formal Cectdration 


Procedure tbody 


Procedure End 


Procedure Invocaticn 


7-12 


Procedures 


PROCEGURE C (MeN) VARYINGs 

FORMAL M FIXED; 

FORMAL VALUE N CHARACTER VAFYING; 
CECLARE P FIXEDS 


RETURN CP); 
EAC Cs 
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SECTION 8 
STATEMENTS 


Statements are the SDL/UPL equivalent of grammatical sentences. They contain a complete sequence 
of operations (one complete idea). They are logically separate from other similar sequences. While an 
expression evaluation results in a numerical value, statement evaluation specifies functions or assign- 
ments for the values. For example, the expression A + B results in a numerical value and statement 
xX := A + B; (X is replaced by A + B). It assigns the value of the expression to identifier X. 


Statements are always terminated by a semicolon (;) character. 


Statements fall into three general classifications. These are declaration, control, and assignment state- 
ments. 


DECLARATION STATEMENTS 


Declaration statements connect memory space to identifiers and their attributes. Refer to Section 5 for 
a complete description of declaration statements. 


CONTROL STATEMENTS 


Control statements determine the sequence in which statements are executed. They pass control to pro- 
cedures, bind groups of statements together, or conditionally specify which one of several statements 
is to be executed next. 


Procedure Call Statement 


The major control statement in SDL/UPL is the procedure-calling or invoking statement. It consists 
of a procedure identifier followed by any parameters enclosed in parentheses and terminated by a semi- 
colon (;) character. For example, the procedure ABS, which requires one parameter, is invoked by 
ABS (VALUBE);. 


There are three considerations governing the use of procedure-calling statements: 


1. A called procedure must be within the scope of the calling statement. In lexic level terminology, 
a called procedure must be at one of the three following lexic levels. 


a. The procedure can be one lexic level higher and nested within the calling procedure. 

b. The procedure cannot be more than one lexic level lower with a currently invoked procedure 
that is on an equal or higher lexic level. 

c. The procedure can be a currently invoked procedure on an equal or higher lexic level. 


2. A called procedure always returns control back to the calling procedure. There is no GO TO 
statement in SDL/UPL. The program logic must be structured to use this return-control action. 
The immediately succeeding statement in the calling procedure is performed when control is re- 
turned. 

3. The called procedure must be of the proper class. There are two classes of procedures in SDL/ 
UPL. These are function procedures and non-function procedures. Function procedures pass 
back a value to the function-procedure call and non-function procedures do not. 
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DO Statements 


The DO statement provides the capability to group a set of related statements together for programmat- 
ic control purposes. A DO statement consists of the DO statement, optionally followed by <group- 
name> and/or the FOREVER keyword, and terminated with the semicolon (;) character. The END 
statement consists of the END statement, optionally followed by <group-name>, and terminated with 
the semicolon (;) character. The UNDO statement consists of the UNDO statement, optionally followed 
by <group-name>, and terminated with the semicolon (;) character. 


A DO-group consists of a DO statement, one or more executable statements, and an END statement. 
A DO-group is regarded as a single statement. 


A set of DO-groups can be nested. Overlapping DO-groups are not allowed. Every END statement is 
paired with the preceding unmatched DO statement, starting at the innermost set. An END statement 
is required for each DO statement. DO-groups can be imbedded in CASE statements, IF statements, 
or other DO-groups. A maximum of 32 CASE statements, IF statements, or DO-groups can be im- 
bedded in one DO-group. However, the UNDO statement only exits up to a maximum of 16 nested 
DO-groups. A maximum of 11 levels of labeled DO statements are allowed in an SDL/UPL program. 


DO-groups, IF statements, and CASE statements define a source-code nesting level that is placed under 
the column marked NL on the compiler-generated source listing. Each nest must be wholly contained 
within its outer nest. That is, source-code nesting levels cannot overlap. 


The keyword FOREVER causes an unlimited number of DO-group iterations. When an UNDO, RE- 
TURN, or STOP statement is performed the DO-group is terminated. If an UNDO statement is per- 
formed, the innermost or DO-group labeled in the UNDO statement is terminated. If a RETURN state- 
ment is performed, an implicit UNDO statement is performed for all nested DO-groups within the pro- 
cedure and control is passed to the statement that immediately follows the statement that called the 
procedure. If a STOP statement is performed, the program goes to end of job. 


If the keyword FOREVER is not specified, the DO-group is performed only one time. 


There is a limit on the size of a DO FOREVER-group. This limit is 4096 bits of object code generated 
by the SDL/UPL compiler. 


SDL and UPL Syntax: 


ea near saeaen| a FOREVER wi —<— <statement> ; = 


Ce Nee eek 
<group-name> 
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Syntax Semantics: 


group-name 
This name labels a DO-group and when specified, must immediately follow the DO statement and 
END statement. For example, DO <group-name>; and END <group-name>;. <group-name> 
must be the same in the DO-statement (DO <group-name>;) and in the matching END-statement 
(END <group-name>;). 


FOREVER 
The keyword FOREVER causes the DO-group to be performed until an UNDO or RETURN state- 
ment is performed for this DO-group. 


statement 
This field can be any valid SDL/UPL statement. There is no actual limit to the number of state- 
ments that can be specified in a DO-group. All SDL/UPL statements must end with the semicolon 
(;) character. 


Example 1: 

DC, % The format of a DO“qroun reauires 
BUMF SUM> % the DO and a corresponding END 
DECREMENT DIFF > % statemerte 

ENC; 

Example 2: 
If -X: -EGk 9 % Une of the COtgroups within the 
THEN UC; 2 IF statemrent ts executed» and then 
BUMP X> 2% control is vassed beyond the IF 
% statemente The second DO-grouo is 
. %Z nawed CTHERs» and its ENC statement 
° % must also contain the same namee 
END: 
ELSE CC OTHERS, 
DECREWENT Xs 
BUMP SUM; 
END OTtEF>, 
Example 3: 

DC THIS_UNE FOREVERS zx The OOraqroun name THIS _ONE 

IF SUP LEG ZERC % iterates until SUM is greater than 
TREN CO; 4% Ow When SUM 1s greater than Or 
BIUMF SUM> % the UNDO statement in the ELSE 


DECREMENT X> statement terminates the OO"group. 
END; 
ELSE UNOC> 


END THIS_ONES 


xn 
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Example 4: 


PFOCECURE AaCe 
OG ANY FOREVER; 
IF X GEu 0 
THEN CG; 


QNECKEMENT Xo 


BUNRF SUMs 
END; 
If SUM Gee C 
THER UNDO? 
ELSE FETURNS 
END ANYs 


ENL AFC; 
Example 5: 


DC SETA; 
X 3= X + Le 


ENC SETA; 


8-4 


Statements 


% This procedure contains severat 

% DO~qroupse The RETURN statement 

z in the Last IF statement terminates 
% the DO-qroup tabeled ANY by passing 
% control out of crocedure ABC. 


% This is a DO statement that binds 
2 three statements to the DO graun 
% SETA. 
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Statements 
Example Program: 
DECLARE 
TIME_ONE FIXED» 
TIME_TkKO FIXEDs 
CORRECT_ANSWER FIXED> 
ANSWER CHARACTER (€8)3 


DQ MAIN_LGOP FOREVERS 


TIME_ONE 2= CONVERT CTIME CCOUNTER» BIT)» FIXED)s 
TIME_TWO 2= CONVERT CTEME CCOUNTER> BIT)» FIXED), 
DISPLAY C"HOW MUCH IS * CAT 
CONVERT CCTIME_ONE MOD 57829)» CHARACTER) CAT * PLUS ” 
CAT CONVERT CCTIME_TWO MOD 100000)» CHARACTER))>; 
ACCEPT ANSWER> 
IF ANSWER = “BYE" 
THEN DOs 
DISPLAY ("GOOD BYE"); 
STOPs 
ENDs 
CORRECT_ANSWER ?= CTIME_ONE MOD 57829) + CTIME_TWO MOD 100000);3 
IF CORPRECT_LANSWER = CONVERT CANSWER» FIXED) 
THEN DO CORRECT; 
DISPLAY C"THAT IS CORRECT» WOULD YOU LIKE TO TRY AGAIN?™)> 
DISPLAY C™ENTER YES FOR AGAIN OR ENTER BYE TO GO TO EDJ™)s 
DO FOREVERs 
ACCEPT ANSWER? 
IF ANSWER = “BYE™ 
THEN DO? 
DISPLAY C"GO0OD BYE™)>s 
STOP =s 
ENDs 
IF ANSWER = “YES™ THEN UNDO>s 
ELSE DISPLAY C"INCORRECT RESPONSE TRY YES OR BYE*)5 
ENDs 
END CORRECT, 
ELSE DO INCORRECT; 
DISPLAY C*YOUR ANSWER IS INCORRECT"); 
DISPLAY C"THE ANSWER IS ™ CAT 
CONVERT CCORRECT ANSWER» CHARACTER) )> 
DISPLAY ("WOULD YOU LIKE TO TRY AGAIN2?™); 
DISPLAY C"ENTER YES FORK AGAIN OR ENTER BYE TO GO TO E0DJ")s 
DO FOREVER» 
ACCEPT ANSWER? 
If ANSWER = “BYE* 
THEN DO> 
DISPLAY ("GOOD BYE"); 
STOP? 
EWNDs 
TF ANSWER = "YES" THEN UNDO>s 
ELSE DISPLAY C™INCORRECT RESPONSE TRY YES OR BYE*)s 
ENDs 
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END INCORRECTs 
END MAIN _LOOPS 
FINI; 


This example program illustrates the use of the DO statement. The 
program asks the operator to enter the sum of two numbers 
displayed on the ODT. If the sum is correct» the program asks 

if the operator wishes to continue and try another set of . 

two numberse If the sum is incorrect» the program displays 

the correct number and asks if the operator wishes to continue 

or try another set of {wo numberse If tha response to continue 

is YES to both the correct and incorrect numbers» the program 
displays another set of numbers. If the response is 3YE» the 
program goes to end of job. 


HMMM NM NR NWR NT 


DO FOREVER Statement 


The DO FOREVER statement indefinitely performs the statements within the DO-group until an 
UNDO statement is performed. Or until control is returned from the procedure in which the DO FOR- 
EVER statement is imbedded. 


Example: 


DO PRIN FOREVER, 
X 3= X # Is 


ROUTINE (Xe A_PARM)>; 2 Procedure Cail. 

IF X EQL 5 THEN UNDOS Z% Test Limite 

IF X EQL 10 THEN RETURN? % Return from the current procedure. 
END PRINs 


IF, THEN, and ELSE Statement 


The IF, THEN, and ELSE keywords are used to conditionally perform one or two statements in an 
SDL/UPL program. 


If the rightmost bit of <condition> equals 1, the THEN clause is performed. If the rightmost bit 
of <condition> equals 0 (zero) and if the ELSE clause is present, the ELSE clause is then performed. 
Null THEN (THEN;) and ELSE (ELSE;) clauses are allowed. Once the THEN or ELSE (if specified) 
clause is performed, control is transferred to the next statement. The next statement is the one that 
immediately follows the THEN clause if no ELSE clause is specified. Or it is the one that immediately 
follows the ELSE clause, if specified. 


If a group of statements are to be performed which are a result of evaluating <condition>, they must 
be specified in a DO-group that immediately follows the THEN or ELSE keywords. Refer to the DO 
statement for a complete description on the use of DO-groups. 


Nested IF statements are allowed. The maximum number of nested IF statements is 32. The outermost 
IF-THEN and ELSE are on nesting level 0. <statement-1> and <statement-2> of the IF-THEN and 
ELSE are on nesting level 1. 
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The SDL/UPL compiler matches the JF-THEN and ELSE clauses beginning with the innermost nested 
level. For example, if nesting level 2 has an associated ELSE clause, nesting level 4 must also have 
an associated ELSE clause. 


SDL and UPL Syntax: 


—— IF <condition> THEN 7 wen —_— 
<statement-1> 


cain nap ener een i 
<statement-2> 


Syntax Semantics: 


condition 
This field can be any valid SDL/UPL literal, identifier, or expression that returns a value. Only 
the rightmost bit of <condition> is checked. If the rightmost bit is equal to 1, <condition> 
is TRUE. If the rightmost bit is equal to 0, <condition> is FALSE. 


statement-1 
This statement can be any valid SDL/UPL statement. 


statement-2 
This statement can be any valid SDL/UPL statement. 


ELSE 
The keyword ELSE causes the statement which immediately follows to be performed if the right- 
most bit of <condition> equals 0. Null ELSE clauses (ELSE;) are allowed. 


THEN 
The keyword THEN causes the statement which immediately follows to be performed if the right- 
most bit of <condition> equals 1. Null THEN clauses (THEN;) are allowed. 


Example 1: 
IF X = 32 THEN Y 32 43 % Identifier Y is assigned a vatue of 4 
% if the vatue of identifier X eauals 32. 
Example 2: 


Identifier Y is assigned 4 vatue af 4 
if the vatue of identifier X is greater 
than 1 and Y is assigned 4 value of 5 
if X ts not greater than 1. 


IF X > 1 THEN 
ELSE 


<< 
es 86 
“wou 
ui S 
we We 
Wr Nw 


x 
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we 


Example 


IF X 1 THEN COs 


it 


FLSE COs 


Example 4: 


If X = 2 
THEN IF Y = 3 
TEEN IF Z 
TEEN 
ELSE 
ELSE; 
If Y = 20 
THEN; 
ELSE CC, 
A 
Q 
ENDs> 


>> il 
se oe 
WoW 
NS ee 
‘we we 


ELSE 


a oe 
uou 


we we 


& ta 


Example 5: 


IF A + @ GT X 
THEN UQs 
A s= A = ls 


If A EGL O TEEN 
FIN_XYZ3 
ENC 
ELSE COs 


ww 


NMNNRNR BN 


mwanm nw nw we 


ae re 


Statements 


Identifiers Y and Z are assiaqned the 
values of L and 2» respectively» if 
the value of identifier X equals lt. 
Ctherwises» tidentifiers Y and Z are 
assigned the values 3 and 4» 
rasoectivelv. 


Tdentifier A is assiqned a vatue of 1 if 
identifier X equals 2» Y equals 3» and 

Z equals 4. Identifier A is assigned 
the value cf 2 if identifier X equats 2» 
Y eauats 35 ard #2 does not equat 4. 
Identifiers A and 8B are assigned the 
vatues 3 and 4» resnectivety» if 
identifier X do#ss not eaual 2 and 
identifier Y does not equal 20. 


UNDO; 


B 1000 Systems SDL/UPL Reference Manual 
Statements 


Example Program: 
DECLARE YES_OR_NO CHARACTER (€3)35 


DISPLAY C™THIS PROGRAM ILLUSTRATES THE TF» THEN» AND ELSE VERBS.")3 
DISPLAY ("IF YOU WISH TO CONTINUE» THEN ENTER YES» ELSE ENTER NO"); 


DO FOREVERS 
ACCEPT YES_OR_NOs 


IF YES_OR_NO = “NO” 
THEN DOs 
DISPLAY ("GOOD BYE™)s 
STOP> 
END> 
ELSE IF YES_OR_NO = “"YES* 
THEN DISPLAY C"™YOU ENTERED YES» IF YOU WISH TO CONTINUE »™ 
CAT * THEN ENTER YES» ELSE ENTER NO.")>5 
ELSE DISPLAY C"YES OR NO WAS NOT ENTERED» TRY YES OR NOo™)> 
ENDs 


FINIs> 


CASE Statement 


The CASE statement is an expanded form of the IF statement. The evaluation of a conditional expres- 
sion determines which statement to perform among all the statements associated with the CASE state- 
ment. After the statement is performed, control passes to the first statement following CASE statement 
(if format 2 is specified) or the END CASE statement (if format 1 is specified). If the conditional ex- 
pression is out of range during program execution, a run time error is generated. 


CASE (format-1) 


The CASE statement (format-1) selectively performs only one statement within the CASE group of pro- 
gram statements. 


At execution time, <index> is evaluated as a binary number. This value is used as a selector to choose 
from among the program statements in the CASE-group. For example, a value of 2 selects the third 
program statement. The program statements in the group are numbered from 0 to n-1 for n program 
statements. A negative value or a value greater than the number of program statements in the CASE- 
group causes an execution-time error. 


All valid SDL/UPL program statements, including nested CASE, DO-group, and IF ... THEN ... 
ELSE statements, are allowed and are counted as a single statement within the CASE-group of state- 
ments. 


After the selected program statement is performed, the program performs the program statement imme- 
diately following the END CASE; statement. 


Null statements can be used to satisfy a program statement position where no operation is to be per- 
formed. A null statement is represented by the semicolon (;) character. 


If a CASE statement is imbedded in a DO-group and a RETURN verb is specified, the program passes 
control back to the statement that invoked the procedure. 
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Each statement within the CASE-group must be an executable statement. If several statements are 
needed to describe the action to be taken in a given situation, the statements must be blocked in a 
DO-group. Null statements are allowed. 


SDL and UPL Syntax: 
— CASE <index> ; ———____————— ee 
_—_—_— <statement-O> ; eee eee 
—_— <statement-1> ; _—_— OO COOOL 


—— “suemeanis te 


>———— END CASE; SO 
Syntax Semantics: 
index 
This field can be any valid SDL/UPL identifier or expression that returns a binary value between 


0 and n, inclusive and specifies the statement to be selected. 


statement-0 through statement-n 
These fields can be any valid SDL/UPL statement and specify the statement to be performed. 


Example 1: 
CASE X, % The vatue of X determires which orocedure is 
PROC_As Z perfortwed. X can vary in value from 0 through 
PFOC_Bs % 2. If the value of X 3S greater than the number 
PFOC_ C3 % of statements in the CASE statements a run "time 
END CASE? % errcer oaccurse 
Example 2: 


x 


CASE CA * 8) MOCO 2, The value of the expression is 


CC; 4 used to determine which statement 
TF X > 15 TEEN LALO>S % tc perform. A 00 statemert or 
X t= X #€ 53 % CASt statement is considered one 
ENC> %Z Statement. 

CASE X> 
PFOC_O>; 
PROC 13 
PrOC_ 20, 
FND CASE; 

ENC CASE; 
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Statements 

Example Program: 

DECLARE NUMBER FIXED> 
NUMBER <= O- 
DO FOREVERs 
CASE NUMBER? 

DISPLAY “MARY"> % NUMBER = C 
DISPLAY "HAD*"5 % NUMBER = 1 
DISPLAY “A; % NUMBER = 2 
DISPLAY “LITTLE*%s % NUMBER = 2 
DISPLAY "LAMB"; Z NUMBER = 4 


END CASE> 
IF CBUMP NUMBER) > & THEN UNDOs 
ENDs 


STOP, 

FINI; 

% This exampte program uses the CASE statement to 
% display “MARY HAD A LITTLE LAMB" on the ODT 

% and goes to end of job.e- Each word is displayed 
% on a separate line. 


Output from Example Program: 


CASEO =2037 BOJe PP=4» MP=4 TIME = 1125723204 


% CASED =2037 MARY 

Z CASEO =2037 HAD 

X CASED =2037 A 

% CASEO =2037 LITTLE 

% CASEO =2037 LAMB 

CASEO =2037 EQJ- TIME = 118257238.2 


CASE (format-2) 


The CASE statement (format-2) uses the value of <index> to determine which expression to evaluate 
in the list of expressions contained in the parenthesis ‘‘( )’’ characters. The range of <index> is from 


0 to n-1, where n is the number of expressions in the list. 


SDL and UPL Syntax: 


— CASE <index> OF en ep ee 


1137833 
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Syntax Semantics: 


index 
This field can be any valid SDL/UFL identifier or expression that returns a binary value between 
0 and n—1, where n is the total number of expressions within the parenthesis ‘‘( )’’ characters 
and specifies the expression to be selected. 


expression 
This field can be any valid SDL/UPL number, identifier, or expression that returns a value and 
specifies the value. If selected by <index>, it is returned as a result of evaluating the CASE ex- 


pression. 
Example: 
CECLAFE {Ar Eo Cw Fo Tro Seo O) FIXECS % Identifier A is 
I s= 235 % assigred the vatue 
Jd 33.33 % CA*H) # CAt+H) MOOD E. 
CASE J OF COKF TE» Ge 344#Be CA*GH) MCD Bo C);5 


Example Program: 


DECLARE NUMBER FIXEDs 


NUMBER := 03 

DU FOREVERS | 
DISPLAY CCASE NUMBER OF C"MARY"» “HAD"™s»s "A" "LITTLE%» “LAMB™))3 
IF CBUMP NUMBER) > 4 THEN UNDDS 

END 


STOP> 
FINI; 


% This example program uses the CASE statement (Cformat-2) to 
% disptay “MARY HAD A LITILE LAMB" on the ODT and goes 

XZ to end of joD.s. Each word is displayed on a separate 

Z dine. 


Output from Example Program: 


CASEG =2037 BOJs» PP=4» MP=4 TIME = 11257235244 
% CASED =2037 MARY 

2 CASEO =2037 HAD 

% CASED =2037 A 

% CASEO =2037 LITTLE 

% CASEO =2037 LAMB 

CASEO =2037 EOQJs TIME = 1125723822 
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ASSIGNMENT STATEMENT 


The assignment statement is the only data-movement statement in SDL/UPL. Truncation and padding 
are performed across the assignment operator (:=). They are dependent upon the data type and length 
attributes of the data item as specified in the declaration statements. For data items with a CHARAC- 
TER data type, truncation of characters and padding of blank characters is on the right. For data items 
with a BIT or FIXED data type, truncation of data and padding of zeros is on the left. 


Examples: 
X 3s= OQ; % ldentifier X is assigned the vatue 0. 
X s= A; % Identifter X ts assigned the value of 


identifier A. 


ae 


NULL STATEMENT 


The null statement performs a no-operation function during program execution. Two adjacent semico- 
lon (;) characters are used to delimit a null statement. 


The null statement is considered a complete statement that can be specified whenever the syntax re- 
quires a complete statement. Its most common usage is in the CASE and IF verbs to fulfill the syntax 
requirements and not to perform operations. The null statement can be specified in the READ, 
WRITE, and SPACE verbs. 


The null statement can be specified to control events within a compound IF verb. However, this control 
is more readily accomplished if DO-groups are used within the compound IF verb. 


SDL and UPL Syntax: 


en eee 


Example: 

CASE DECCCES %4 The icentifier DECODE is used to select one 
PROC_Ae <Z% O % of six statements within the CASE statement 
PROC 8s Z% 1 x todve If the vatue of identifier DECOQDE is 
, 4% 2 % @ 2 or a 3 no operation is oerformed. 
, % 3 
PROC Ce % 4 
PkRCC_Cs % 5 

ENC CASE; 
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SECTION 9 
VERBS 


FORMAT OF THE VERB DESCRIPTION 


All verbs that can be used in an SDL/UPL program are described in this section. Each verb is de- 
scribed separately. The SDL and UPL verb description is presented first, followed by the railroad syn- 
tax diagrams, the syntax semantics, examples, and an example program. 


The valid constructs for the SDL compiler are presented in the SDL railroad syntax diagrams. The 
valid constructs for the UPL compiler are presented in the UPL railroad syntax diagrams, only if the 
UPL syntax is different from the SDL syntax. The description, syntax semantics, and examples show 
the action taken by the SDL and UPL compilers. Care must be taken to distinguish the differences 
between the two compilers when referencing the syntax semantics and examples. 
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ACCEPT 


The ACCEPT verb causes the program to be suspended and to wait for input from the Operator Dis- 
play Terminal (ODT). The input is provided to the program by way of the MCP AX input command 
which is entered by the system operator at the ODT. 


The ODT input message is stored left-justified into <destination>. [f the ODT input message is larger 
than <destination>, the message is truncated on the right. If the message is smaller, the message is 
padded on the right with blanks. 


The actual input/output (1/O) operation processes the message as character data, regardless of the de- 
clared type of <destination>. 


When the ACCEPT verb is performed, the MCP suspends the SDL/UPL program and sends the fol- 
lowing message to the ODT. The (<usercode>) portion is optional. 


(<usercode>) <program name> = <job number> ACCEPT 

The following format is required to erter a message on the B 1000 computer system ODT. 
<job number>AX <text> <ETX character> 

The maximum length for the ODT input message is 69 characters. 


SDL and UPL Syntax: 


—— ACCEPT <destination> ; ——_ ee x“—aaaoas| 


Syntax Semantics: 


destination 
This field can be any valid SDL/UPL identifier or an expression that generates an address. 
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Example Program: 
DECLARE MESSAGE CHARACTER (€69)3 
DO FOREVERs 
ACCEPT MESSAGES 
IF MESSAGE = "BYE" THEN UNDOS 
DISPLAY MESSAGEs 
ENDs 
STOPs 
FINIs 
% This exaagple program accepts a wessage fron 
Z the GDT.~ When a message is inputs the program 


Z displays the message back onto the ODT. If 
% BYE is entereds the program goes to end of jobe 
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The ACCESS__FILE_INFORMATION verb causes the end-of-file pointer and the device type in the 
File Information Block (FIB) to be stored in <destination>. This information reflects the current stat- 
us of the file in the program. The end-of-file pointer is the relative record number of the last record 
in the file. The device type is an MCP-maintained value that represents the hardware type of the file. 
For example, a device type of 16 represents a device type equal to DISK__PACK. Refer to the 
CHANGE verb in this section for a complete description of all the valid device types and associated 


device type codes. 


The end-of-file pointer and the device type can be stored in BIT or CHARACTER data type format. 


The following is the format for <destination> of data type BIT. 


O1 DESTINATIGN_VAFIA@LE BIT (€30)> 
63 EGQF_POINTER LITC24)» 
03 DEVICE_TYPE EIT (6) 


The following is the format for <destination> of data type CHARACTER. 


OL DESTINATICN_VARIABLE CHARACTER C10)> 
O3 EOF_PCINTEF CHARACTERCS)>» 
03 CDEVILE_TYPE CHARACTERC2)3 


< file-identifier > must name a declared file. The return-type indicator (BIT or CHARACTER) must 
match the declared type of the variable. The information is returned to the address specified by <desti- 
nation>. The format of the returned information varies with the return-type indicator. The file being 
accessed must be open to ensure that the File Information Block (FIB) exists. 


SDL and UPL Syntax: 


a ACCESS_FILE_!INFORMATION ( <file-identifier> , aes ie BIT ia as 
CHARACTER 
> | <destination> ); a 


Syntax Semantics: 


BIT 
The keyword BIT specifies that the data type of <destination> is equal to BIT. 


CHARACTER 
The keyword CHARACTER specifies that the data type of <destination> is equal to CHARAC- 
TER. 


destination 
This field can be any valid SDL identifier. 
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The following summarizes the format of <destination> in the ACCESS__FILE_INFORMATION 
verb. 


Item BIT CHARACTER 
EOF__Pointer 24 — «8 
Device type 6 2 


file-identifier 
This field is the name of the file to be interrogated. This file must be open prior to performing 
the ACCESS__FILE_INFORMATION verb. . 


Example Program: 


FILE 
DISKFILE CDEVICE = DISK SERIAL» 
RECORDS = 21/180» 
OPEN_OPTION = QUTPUT/NEW)> 


DECLARE 
01 DESTYENATION_VARTABLE CHARACTER (€10)» 
03 EOF _ POINTER CHARACTER (€8)> 
03 DEVICE_TYPE CHARACTER (2)> 
DATA CHARACTER (€1)3 


DATA s= "1"5 

WRITE DISKFILE CDATA)Ds 

ACCESS_FILE_INFORMATION COISKFILE» CHARACTER» DESTINATION_VARIABLE)D=3 

DISPLAY “EOF POINTER = * CAT EQF_POINTER CAT * AND DEVICE TYPE IS * 
CAT DEVICE_TYPEs 

CLOSE DISKFILE> 


FINI; 

Z This example program writes one record to a disk file 

% and obtains the end-of-file pointer and device type 

Z by using the ACCESS_FILE_INFORMATION verbs. The program 
% subsequently displays the end-of- file pointer and 

% device type on the systen ODTs cioses the disk fides» and 
% goes to end of job. 


Output from Example Program: 


Z TEST =6331 EOF POINTER = 00000002 AND DEVICE TYPE IS 15 
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BASE__ REGISTER 


The BASE__REGISTER verb returns a 24-bit value that is the current and absolute main-memory ad- 
dress of the beginning data space for the program. 


In a multiprogramming environment, performing two separate BASE__REGISTER verbs can yield dif- 
ferent results. Different results occur because the MCP can move the program to a new location in 
memory as memory space is required. 


SDL Syntax: 
—— BASE_REGISTER ————— SS Se 
Example: 
DECLARE BASE BIT C24); z Identifter BASE contains the current 
BASE %= EASE_REGISTER:; 2 memorv address of the progqrag. 


Example Program: 


DECLARE NEW _BASE_ADDRESS BIT (€24)>» 
SAVE_BASE_ADDRESS BIT (24)3 


SAVE _BASE_ADDRESS *= BASE_REGISTER> 


DISPLAY C"THE CURRENT BASE ADDRESS IS EQUAL TO * CAT 
CONVERT CSAVE_BASE_ADDRESS» CHARACTER))> 

DISPLAY C™ENTER ANY INPUT TO GO TO EQJ")3 

DO FOREVER? 


NEW_BASE_ADDRESS 2= BASE_REGISTERs 


IF CSAVE_BASE_ADDRESS /= NEW BASE_ ADDRESS) 

THEN DISPLAY C™THE BASE ADDRESS HAS CHANGED» THE NEW ADDRESS IS * 
CAT CONVERT CBASE_REGISTER» CHARACTER))>2 

IF WATT CTIME_TENTHS €5)5 SPO_LINPUT_PRESENT) 

THEN STOP> 


Z% This example program uses the BASE_REGISTER verb to display 

% the current memory address of the beginning of the programe 

Z% and then goes into a loop to check for a change in the base 

2 address» If the address changess the new address is displayed 
ZX on the ODOT. If any message is accepted to the programs the 

Z program goes to end of job. 


9-6 


B 1000 Systems SDL/UPL Reference Manual 
Verbs 


BINARY 
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The BINARY verb returns a FIXED data-type value which is the binary representation of the character 
string. Only the rightmost eight characters of the string are converted. 


If the result of a BINARY verb returns a binary value greater than 24 bits (a decimal number greater 
than 16,777,215), the leftmost bits are truncated. 


If the decimal number is greater than 8,388,607 ({[2 exp 23] —1), the returned value is a negative value 
because the leftmost bit is 1. 


SDL and UPL Syntax: 


—— BINARY (<character-string> ) SSS SSS 


Syntax Semantics: 


character-string 
This field can be any valid group of characters that contain decimal digits and specifies the value 


to be converted. 


Examples: 
CECLAFE CHAR CHARACTER €7)> 
RESULT FIXEC> 
CHAR t= "12354567 "5 
RESULT t= BINARY CCHAR); % wESULT egquats #1234567 
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Example Program: 


DECLARE 
RESULT FIXED» 
ADDEND_ONE CHARACTER (€3)>» 
ADDEND_TwWO CHARACTER (€3)>3 


DO FOREVER? 


DISPLAY “ENTER ANY THREE DIGIT NUMBERe LEADING ZEROS ARE REQUIRED>"3 
DISPLAY "OR ""BYE"" TO GO TO END-GF-JOB.*3 

ACCEPT ADDEND_ONES 

IF ADDEND_ONE = “BYE” THEN UNDOS 

DISPLAY "ENTER ANY THREE DIGITS FOR THE SECOND NUMBER» LEADING"? 
DISPLAY “ZEROS ARE REQUIRED."S 

ACCEPT ADDEND_TwO3 

IF ADDEND_TWO = “BYE™ THEN UNDOS 

RESULT t= BINARY CADDEND_ONE) # BINARY CADDEND_TWO)s 

DISPLAY "THE TOTAL EQUALS ® CAT CONVERT CRESULT» CHARACTER» 4)3 


ENDs 

STOP? 

FINI> 

Z This exasple program accepts two numbers in character format 

Z% from the ODT» uses the BINARY verb to add two numbers togethers» 


Z and displays the result on the ODT. If BYE is entered» the 
% program goes to end of job. 
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BINARY__SEARCH 


The BINARY__SEARCH verb searches an ordered list of items that start at <start-record> for 
<number-of-records >. The occurrence number of the entry that matches is returned. If there is no 
match, an occurrence number equal to the entry immediately after the last entry in the list is returned. 


SDL Syntax: 
—— BINARY_SEARCH ( <start-record>, <compare-field>, <compare-value> , ————-_________—_——_> 


>———— _ <number-of-records> ) ——— 


Syntax Semantics: 


start-record 
This field can be any valid SDL identifier or expression that returns a value and specifies the 
first structure with which to begin the search. 


compare-field 
This field is a template which gives the relative offset and size in the structure of the 24-bit field 
that is being compared with <compare-value>. A template is an identifier whose address is 
relative to the beginning of a structure rather than base relative. A field in a structure declared 
REMAPS BASE has such an address. 


compare-value 
This field is the value that is compared with <compare-field>. <Compare-value> is considered 
‘fon the left’’ in the compare relation. 


number-of-records 


This field can be any valid SDL number, identifier, or expression that returns a binary value and 
specifies the total number of records to search for. 
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BINARY SEARCH 
Example Program: 
REC ORD TABLE 
DATA FIXED» 
KEY FIXEDs 
DECLARE ODT_INPUT CHARACTER (€4)>» 
COUNT FIXED» 
RESULT FIXED» 
COMPARE_VALUE FIXED» 
T €1024) TABLE? 


CUUNT 3= OQ» 
DO BUILD_LINKS FOREVER; 


IF COUNT = 1024 THEN UNDG BUILD_LINKS=s 

TC COUNT) KEY *= COUNT? 

TCCOUNT) DATA 2= CTIME CCOUNTER» BIT) MOD 1024)% 
BUMP COUNT> 


END BUILD_LINKSs 


DO FOREVER? 


DISPLAY C"™ENTER ANY NUMBER FROM O TO 1023 OR ENTER BYE FOR E0JS"™)5 
ACCEPT ODT_INPUTS 
IF ODT_LINPUT = *BYE" 
THEN O03 
DISPLAY C("GOGD BYE"); 
STOP» 
END= 
COMPARE_VALUE = CONVERT COOT_LINPUTs FIXED)? 
IF COMPARE_VALUE > 1023 
THEN DISPLAY CODT_INPUT CAT = IS TOO LARGE"); 
ELSE IF COMPARE_VALUE < 0 
THEN DISPLAY CODT_LINPUT CAT ™ IS TOG SMALL")3 


ELSE DOs 
RESULT *2= BINARY _SEARCH CTCO)d» KEYCOI>s 
COMPARE VALUE» 102493 
IF RESULT = COMPARE_VALUE 
THEN DISPLAY C*"THE VALUE OF DATA FOUND IS * CAT 
CONVERT CDATA CRESULT]>» CHARACTER)); 
ELSE DISPLAY C™SEARCH FAILED")> 
ENDs 


ENDs 
FINIs 


NMRMEM NH KH 
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This example program shows one way to use the BINARY_SEARCH verb. 

The program first builds a tables. The operator is then requested 

to enter any number between 0 and 1023.2 Using the accepted value 

the program searches through the table for an equat condition and 

if found displays the base relative address of the beginning of the 
table entry that it founde If the search fails» the program displays 
SEARCH FAILED. If BYE is entereds the program goes to end of jobs 
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Verbs 
BUMP 


The BUMP verb increments <identifier> by <increment-amount>. If the BY keyword is not 
specified, <identifier > is incremented by 1. If the BUMP verb is used in an expression, a descriptor 
of the identifier is placed on the evaluation stack. 


If either <identifier> or <increment-amount> has a length greater than 24 bits, only the rightmost 
24 bits are evaluated. If either <identifier> or <increment-amount> has a length less than 24 bits, 
<identifier> or <increment-amount> is padded with leading zeros. Character strings are treated as 


bit strings. 


SDL and UPL Syntax: 


—— BUMP <identifier> an? a en Ve 
BY <increment-amount> 


Syntax Semantics: 


identifier 


This identifier can be any valid SDL/UPL identifier and specifies the field to be incremented. 


increment-amount 


This field can be any valid SDL/UPL integer, identifier, or expression that returns a 24-bit binary 
number and specifies the amount to increment <identifier>. 


BY 


The keyword BY specifies that <increment-amount> follows. 


Examples: 
BUMP X> 
BUMP XK @Y 4s 
EUMP X BY Zs 


A s= BUMP X HY Zs 


IF CeUMP xX BY 2) EUL ZERO 
TEEN a , 
ELSE see 3 


BUMP A FY EB S= Ce 


X s= PUMP A BY 3 t= Cs 
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Re we RE 


Add 1 to X. 
Add 4 to Xe 
Add the value af 2 to Xe 


Add the value cf Z to X» assign 
the sum to X¥» ard assigr the value 
of X to Ae 


Add the vatue cf Z to X and store 
in Xe and then perform the comparison. 


Assign the vatue of C to 8 and 

then add the value of C to A. 

Notice that the vatue of C is added to 
A tecause of the replacement delete 
left part operator. 


Rectace B by the vatue cf Cr delete 


Bs add the value of C te Av and assign 
the value toe A and to Xe 
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PRUC_& CEUMP X)> % Identifier X is incremented ty 1 
% and X is passed to nrocedure PROC_#. 


Identifier X is incremented by 1 

and the value of X is vassed to 
procedure PFUC_B. The extra set of 
parentheses causes the vatue to be 
passed te PFROC_B tnstead of the name 
X« 


PROC_O CCRUMP X03 


ne DE RE RE DY OD? 


Example Program: 
DECLARE NUMBER FIXEDs 
NUMBER 3= Os 


DO FOREVERs 
IF CBUMP NUMBER) > 10 THEN UNDO>s 
DISPLAY CONVERT CNUMBERe CHARACTER )5 
ENDs 


STOP» 
FINTs 


% This example program uses the BUMP verb to increment 

% a number by onee The resulting value of the number is 

Z displayed on the ODT. The program increments and displays 
% the number ten times and goes to end of jobe 


Output from the Example Program: 


BUMPQ =6501 +0000001 
BUMPG =6501 40000002 
BUMPO =6501 #0000003 
BUMPO =6501 #0000004 
BUMPO =6501 #0000005 
BUMPO =6501 #0000006 
BUMPG =6501 #0000007 
BUMPO =6501 #0000008 
BUMPO =6501 #0000009 
BUMPO =6501 #0000010 


RNNMRNRHRNH KRM NR 
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CHANGE 


The CHANGE verb causes the SDL/UPL program to dynamically modify the attributes of a file dur- 
ing the execution of a program. The CHANGE verb must be specified after the file is declared. The 
change does not become effective until the file is opened. If the file to be changed is opened when 
the CHANGE verb is performed, the change is not effective until the file is closed and reopened. 


Only those file attributes listed in the CHANGE verb are modified. Those omitted remain as previously 
set. 


To effectively modify the attributes of a file, use the following procedure. 


1. Close the file with a file attribute which causes the memory space for the File Information 
Block (FIB) to be released. If the memory space for the FIB is not released, the MCP does 
not rebuild the FIB, and any attempt to change the file attribute is disallowed. The following 
examples show four ways to close a file so that the memory space for the FIB is released. 


CLOSE FILE_A WITH LOCK; 
CLOSE FILE_.B WITH RELEASE; 
CLOSE FILE_.C WITH CRUNCH; 
CLOSE FILE__D WITH PURGE; 


. Modify the desired file attributes using the CHANGE verb. 
. Open the file explicitly by using the OPEN verb or implicitly by using the READ or WRITE 
verbs. 


Wh 


Refer to Table 9-1 for a complete description of the file attributes that can be specified with the 
CHANGE verb. 


SDL and UPL Syntax: | 


—— CHANGE <file-identifier> TO ( a a ee oe ); — 


Syntax Semantics: 


file-identifier 
This file identifier can be any valid SDL/UPL file identifier and specifies the file to be modified. 


attribute 
This field can be any valid file attribute and specifies the file attribute to be modified. Refer to 
FILE in Section 4 of this manual for a complete list of the valid file attributes. 


value 
This field can be any valid SDL/UPL number, identifier, or expression that returns a value and 
specifies the file attribute value. 


Table 9-1 shows all the valid values for each file attribute. 
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Verbs 


Table 9-1. Valid File Attribute Values 


File 
Attribute 
ALL__AREAS__AT__OPEN 
AREA__BY__CYLINDER 
BLOCKS__PER__ AREA 
BUFFERS 


DEVICE 


END__OF__PAGE__ACTION 


EU__DRIVE 


EU_.INCREMENT 


EU__INCREMENTED 


EU__SPECIAL 


FILE__ID 


FILE__TYPE 
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Value 


=O —_O© 


=) 


<number-of-buffers > 


<hardware variant > 
CAT <hardware type> 


0 


1 
< drive-number > 


< drive-number > 


0 


1 


0 
1 


‘* < file-identifier > ”’ 


0 or 9 
7 


Description 


Resets the attribute. 
Sets the attribute. 


Resets the attribute. 
Sets the attribute. 


Specifies the blocks per 
area for the file. 


Specifies the number of 
buffers. 


Refer to Table 8-2 for 
a complete list of the 
hardware variants and 
hardware types. 


Resets end-of-page 
reporting. 
Sets end-of-page reporting. 


Specifies the disk drive 
number. EU__SPECIAL and 
EU_INCREMENTED must 
be set. 


Specifies the disk drive 
number. EU__SPECIAL and 
EU_INCREMENTED must 
be set. 


Resets 
EU_INCREMENTED. 
Sets EU__INCREMENTED. 


Resets EU__SPECIAL. 
Sets EU__SPECIAL. 


Specifies the file identifier 


for the file. 


Specifies DATA file type. 
Specifies INTERPRETER 
file type. 


Specifies CODE file type. 
Specifies INTRINSIC file 
type. 
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Table 9-1. Valid File Attribute Values (Cont) 


File 
Attribute 


INVALID__CHARACTERS 


LABEL__TYPE 


LOCK 


MULTI__FILE_ID 


MULTI__PACK 


NUMBER__OF__AREAS 


NUMBER__OF__STATIONS 


OPEN__ON__BEHALF__OF 
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Value 


“<< multi-file-id >’ 


Description 


Reports all lines containing 
invalid characters. 

Reports all lines containing 
invalid characters and stops 
the program. 

Reports once, that the file 
contains invalid characters. 
Does not report that the 
file contains invalid 
characters. 


Use ANSI standard label. 
File is unlabeled. 

Use Burroughs standard 
(ANSI) label. 


Resets LOCK. 
Sets LOCK. 


Specifies the multifile 
identifier for the file. 


Places file on single disk 
pack. 

Places file on multiple disk 
packs. 


Specifies the number of disk 
areas. 


Specifies the maximum 
number 

of stations for the remote 
file. The value of n can 
range from 0 to 999. 


Resets the 
OPEN__ON__BEHALF__OF 
boolean. 

Sets the 
OPEN__ON__BEHALF__OF 
boolean. 
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File 
Attribute 


OPEN__OPTION 


OPTIONAL 
PACK __ID 


PARITY 


QUEUE_FAMILY__SIZE 


QUEUE_.MAX__MESSAGES 


REMOTE__HEADERS 


RECORDS__PER__BLOCK 


RECORD__SIZE 


REEL 
REMOTE_KEY 


SAVE 
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Verbs 


Value 


12-bit field 


0 
1 


** <: pack-identifier > ”’ 


0 


1 


Table 9-1, Valid File Attribute Values (Cont) 


Description 


Bit 0 — INPUT 


Bit 1 — OUTPUT 

Bit 2 — NEW 

Bit 3 — PUNCH 

Bit 4 — PRINT 

Bit 5 — NO__REWIND, 
INTERPRET 

Bit 6 — REVERSE, 
STACKERS 

Bit 7 — LOCK 


Bit 8 — LOCK__OUT 


File must be present. 
File is optional. 


Specifies the disk pack 
identifier. 


Specifies odd parity 
checking. 
Specifies even parity 
checking. 


Specifies the number of 
subqueues in the queue file. 


Specifies the maximum 
number of messages that the 
file can contain. 


Resets the headers boolean 
for remote files. 

Sets the headers boolean 
for remote files. 


Specifies the number of 
records per block for the 
file. 


Specifies the number of 
bytes per record. 


Specifies the reel number. 


Remote key is present on 
all read and write operations 
on the file. 


Remote key is not present. 
Specifies the number of 
days 

to save the file. 
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Table 9-1. Valid File Attribute Values (Cont) 


File 
Attribute 


SERIAL 


TRANSLATE 


TRANSLATE__FILE 


TRANSLATION 


USE__INPUT__BLOCKING 


VARIABLE 


WORK__FILE 
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Value 


6-character string 


0 
1 


‘‘ < file-identifier >’ 


@(1)000@ 


@(1)001@ 
@(1)010@ 
0 


1 


Description 


Specifies the tape serial 
number. 


Resets translate. 
Sets translate. 


Specifies the name of the 
translate table file 
identifier. 


Specifies EBCDIC 
translation. 

Specifies ASCII translation. 
Specifies BCL translation. 


Takes attributes from file 
declaration. 
Takes attributes from disk 
file header. 


File contains only 
fixed-length records. 
File contains 
variable-length records. 


Does not insert job number 
in file identifier. 

Inserts job number in file 
identifier. 
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Table 9-2 shows the hardware code and variant for each hardware device type. If the device-type name 
has an asterisk (*) character on the left, the name is not a valid spelling for use with the CHANGE 
verb. The value is a 10-bit value where the leftmost four bits are the variant and the rightmost six 
bits are the hardware code. 


Table 9-2. Valid DEVICE Type Values 


Hardware Code Variant 
Device Type Name (bits 4-9) (bits 0-3) 
* DATA RECORDER (80 column) 01 
CARD__PUNCH 02 (Same as PRINTER) 
CARD__PUNCH FORMS 02 (Same as PRINTER FORMS) 
PUNCH 02 (Same as PRINTER) 
PUNCH FORMS 02 (Same as PRINTER FORMS) 
* FDC 1 04 
READER_-PUNCH PRINTER 05 (Same as PRINTER) 
READER_PUNCH__PRINTER FORMS 05 (Same as PRINTER FORMS) 
PUNCH__PRINTER 05 (Same as PRINTER) 
PUNCH__PRINTER FORMS 05 (Same as PRINTER FORMS) 
PAPER__TAPE__READER 06 
PAPER TAPE READER 1 07 
PRINTER 08 0 — BACKUP TAPE or DISK 
1 -—- BACKUP TAPE 
2 - BACKUP DISK 
3 — BACKUP TAPE or DISK 
4 - HARDWARE ONLY 
5 — BACKUP TAPE ONLY 
6 - BACKUP DISK ONLY 
7 - BACKUP TAPE or DISK 
only 
PRINTER FORMS 08 8 + (PRINTER Variant) 
READER SORTER 2 09 
SORTER__READER 10 
READER__SORTER 10 
DISK__FILE (any head per 11 
track disk) 
DISK__FILE (1A, 1C, 12 (Same as DISK) 
system-memory head per 
track disk) 
DISK (disk cartridge 
control 2 or 3) 13 (Same as DISK) 
DISK (disk cartridge 14 (Same as DISK) 
control 1) 
DISK__PACK (any 225, 205, 15 (Same as DISK 
or 206 disk pack) 
DISK__PACK 16 (Same as DISK) 
DISK (any disk) 17 0 - Serial 
1 -- Random 
* 5-N DISK 18 (Same as DISK 
CARD__ READER (96 column) 19 
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Table 9-2. Valid DEVICE Type Values (Cont) 
Hardware Code Variant 

Device Type Name (bits 4-9) (bits 0-3) 
PAPER__TAPE__PUNCH 20 (Same as PRINTER) 
PAPER__TAPE__PUNCH FORMS 20 (Same as PRINTER FORMS) 
CARD__READER (80 column) 21 
CARD__READER 21 
* SPO (supervisory printout) 22 
* ODT (operator display 23 
terminal) 
TAPE__NRZ (any 9-track 24 
nonreturn-to-zero, tape 
unit) 
TAPE__7 (any 7-track 25 
upright, tape unit) 
TAPE__PE (any 9-track 26 
phase-encoded, tape unit) 
TAPE (any tape unit) 27 
TAPE__9 (any 9-track 28 
tape unit) 
CASSETTE 30 
PRINTER (printer control 5) 31 (Same as PRINTER) 
PRINTER (printer control 5) 31 (Same as PRINTER FORMS) 
DISK__PACK (206 and 207 32 (Same as DISK) 
disk pack) 
PRINTER (printer control 7) 33 (Same as PRINTER) 
PRINTER (printer control 7 33 (Same as PRINTER FORMS) 
PORT 60 
QUEUE 61 
* QUEUE FILE OLD 62 
REMOTE 63 

Examples: 


CHANGE MY_LFILE TC CFILE_IC t= "YOUR_FILE"); 
CHANGE LIKE TO CLABFL_TYPE t= 25 ENC_OF_PAGE_ACTION := 1)3 


CHANGE CISK FILE TC CUSE_IANPUT_BLOCKING t= t» FILE_TYPE = 0)3 
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Example Program: 


FILE WORKFILE CDEVICE = DISK» LABEL = "MASTER*/"0LD")3 
ZIP “SO OPEN*™s 
OPEN WORKFILE WITH NEW; 
CLOSE WORKFILE wITH RELEASES 
CHANGE WORKFILE TO CFILE_ID 2= "NEW"» 
MULTI_FILE_ID 2= "MASTER" ); 
OPEN WORKFILE WITH NEW> 
CLOSE WORKFILE WITH RELEASES 


% The exaaple program shows one way to change the name of a file. 
% The program sets the MCP OPEN opticnse opens the files» closes the 
Z file» changes the external file-id of the file» reopens the 

% file» closes the file» resets the MCP OPEN options and goes to 

%Z end of jobs The OPEN option is set in order to see the name of 
% the file as it is opened by the MCP. 
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CHAR__TABLE 


The CHAR__TABLE verb builds a 256-bit table string that describes a set-membership table, in which 
every member of the set is specified in the table string. Non-graphic characters are denoted in their 
hexadecimal (EBCDIC) form by concatenating bit strings into the table string. The table string gener- 
ated by the CHAR__TABLE verb is a constant string that is built at compile time. Identifiers and ex- 
pressions cannot be specified as elements of this table string. 


The value of each character in the table string is used as its index into the table string. When a charac- 
ter is a member of the set described by the table string, its corresponding bit in the table string is 
set to @(1)1@. Position in the table string is based on the standard EBCDIC collating sequence. 


The CHAR__TABLE verb is frequently used in conjunction with the REDUCE verb. 
SDL and UPL Syntax: 


CAT — 


—— CHAR_TABLE ( “ <EBCDIC-characters> ”’ ) | 
@< 2-hexadecimal-numbers> @ 


Syntax Semantics: 


EBCDIC-character 
This field can contain one or more EBCDIC characters and specifies the character(s) to be in- 


cluded as member(s) of the table. 


2-hexadecimal-number 
The two digits that comprise a hexadecimal number are 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, A, B, C, 
D, E, and F. This number specifies the hexadecimal number to be included as a member of the 
table. 


Example: 


CECLARE xX EIT (256); 
X s= CHAR TABLE C"AGC® CAT GFFa CAT "123");3 


e ocsitions A» Be Ce» aFFar tle 


4 X 18 a 2567biIt string 
a anc afl cther bit ecsitions 


4 2» anc 2 gre set te 
2 are set to ellyoa. 


wher 
1)1¢ 


¢ 
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CHAR_TABLE 
Example Program: 
DECLARE 

VOWEL_ TABLE BIT (256) >» 
STRING REFERENCE » 
ODT_INPUT CHARACTER (€69)>» 
EQS_FLAG BIT (€1)3 


VOWEL_ TABLE = CHAR_TABLE C"™AEIQUae iou™)s 
DO FOREVERs 
DISPLAY C™ENTER CHARACTERS OR ENTER BLANK TO GO TO END“OF“JO0B"); 
ACCEPT ODT_INPUT> 
REFER STRING 10 ODT_INPUT=s 
REDUCE STRING UNTIL FIRST /= * "% 
ON E05 STOPs 
REDUCE STRING UNTIL FIRST IN VOWEL_ TABLES 
ON EQS DQ; 
DISPLAY C"NO VOWELS IN YOUR INPUT™)>; 
EOS_FLAG 2= aCljdilas 
END> 
IF NOT EOQS_FLAG 
THEN DISPLAY C"™THE FIRST VOWEL I5 7 CAT SUBSTRCSTRING»091));5 
FOS_FLAG *= 32€1)0a;5 
END=s 


FINI>s 
Z% This example program accepts input from the ODT and displays 
% the first» EnglishttLanguage vowel encountered in the characters 


% that are acceptede. Entering a Dlank input message sends the 
% program to end of job. 
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CHARACTER_FILL 


The CHARACTER__FILL verb causes the leftmost eight bits of the source field to be written through- 
out the destination field. 


SDL and UPL Syntax: 


—— CHARACTER_FILL (<destination>, <source>) ; Se 


Syntax Semantics: 


destination 
This field can be any valid SDL/UPL identifier and specifies the name of the destination field. 
Array elements, records, structures, and simple identifiers are valid destination fields for <desti- 
nation>. 


source 
This field can be any valid SDL/UPL literal, identifier, or expression that returns a value and 
specifies the value to be filled into <destination>. Only the leftmost eight bits (one character) 
of <source> are used. 


Examples: 
CECLARE 
ARRAYC10) CHARACTER (€5)> 
FIELD CRABACTER (€1)3 
RECORC 
FILL _FECCKE 
CHAB_FIELCD CHARACTER C1)» 
FIXEC_LFIELC FIXFOD> 
FIT_FIELC_24 EIT €24)> 
SI TFIECC. IC BIT €10)3 
CHAFACTER_FILL CARFAYCE)» * %)5 % Fills element 5 of array 
% identifier ARRAY with blank 
% characterse 
CHAFACTE#_FILL CFIELT» a00a)5 & Fills FIELD with hexacecimal 


m value ecual to alla. 


CHARACTER FILL CRILL_RECUCRC» "A™); Filts FILL _FECORD with 


the charécter 4. 


ee 
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CHARACTER_ FILL 


Example Program: 


DECLARE 
ACCEPT_FIELD CHARACTER C72)» 
DISPLAY_FIELD CHARACTER C72)> 


DO FOREVER; 
DISPLAY C"ENTER FILL CHARACTER OR BYE TO GO TO END OF JOB"); 
ACCEPT ACCEPT_FIELD? 
If ACCEPT_FTIELD = “BYE” THEN UNDO; 
CHARACTER_FILL COISPLAY_FIELD» ACCEPT_FIELD)> 
DISPLAY CDISPLAY_FIELD); 


ENDs 

STOP; 

FINI>s 

% This example program accepts characters from the ODT. If BYE 
Z is entered» the program goes to end of job.» The program uses 
% the CHARACTER_FILL verb to fill the DISPLAY_FIELD field. 

% The DISPLAY_FIELD field ts then displayed on the ODT. 
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CLEAR 


The CLEAR verb moves zeros (0) to the array if the array is declared with a data type equal to BIT 
or FIXED. It also moves blanks to the array identifier if the array is declared with a CHARACTER 


data type. 
The CLEAR verb is not valid for paged arrays. 
SDL and UPL Syntax: 


Syntax Semantics: 


array-identifier 
This identifier can be any valid SDL/UPL array identifier and specifies the array to be cleared. 


Example 1: 


CECLARE TAELE C10) CKARACTERs 
CLEAR TABLE, X Moves btank characters to the 
% array tabelead TABLE. 


Example 2: 


CECLARKE TAELE €10) CtARACTER> 
WOAK ARRAY €20) FIXED; 
CLEAR TAPLEs WORK _ ARRAYS Moves blank characters to the 
array ftabeled TABLE and moves 
z7ercs to the array labeted 


WOAK_ ARRAY. 


nw 7 


H 


we BE 
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CLEAR 


Example Program: 


DECLARE CHAR_ARRAY (2) CHARACTER C1)» 
FIXEDLARRAY (2) FIXEDs 


CHAR_ARRAY (CO) 2= "A"3 

CHAR_ARRAY (1) z= *B*3 

DISPLAY C*°THE CONTENTS OF CHAR_ARRAY BEFORE CLEAR ARE * CAT avFa 
CAT CHAR_ARRAY (0) CAT 37Fa@ CAT “™ AND 7 CAT avFa CAT 
CHAR_ARRAY CL) CAT avFadz 

FIXED_ARRAY CO) t= 1211113 

FIXED_ARRAY (2) 2= 2222223 

DISPLAY C™THE CONTENTS OF FIXED_ARRAY BEFORE CLEAR ARE @ CAT avFa 
CAT CONVERT CFIXED_ARRAY €0)» CHARACTER) CAT avFa CAT 
" AND " CAT a7Fa CAT CONVERT CFIXED_ARRAY (1)» CHARACTER) 
CAT a7fa); 


CLEAR CHAR_ARRAY» FIXED_ARRAYS 


DISPLAY C*"THE CONTENTS OF CHAR_ARRAY AFTER CLEAR ARE ™ CAT a7fFa 
CAT CHAR_LARRAY (0) CAT a7Fa CAT * AND * CAT OfFa CAT 
CHAR_ARRAY (1) CAT a7Fads 

DISPLAY ("THE CONTENTS OF FIXED_ARRAY AFTER CLEAR ARE ™ CAT Q7Fa 
CAT CONVERT CFIXED_ARRAY C0)» CHARACTER) CAT @7Fa2 CAT 
“ AND * CAT a7Fa CAT CONVERT CFIXED_ARRAY €1)» CHARACTER) 
CAT a7Fa)s 

DISPLAY ("GUOD BYE" )s 

STOP; 

FINI; 


% This example program uses the CLEAR verb to clear two arrays 
% and displays the value of each array before and after the 
X CLEAR verb is per formed. 


Output from Example Program: 


CLEARO =6912 BOJe PP=4e9 MP=4 TIME = 1522823720 
Z CLEARGO =6912 THE CONTENTS OF CHAR_ARRAY BEFORE CLEAR ARE *A® 
AND “B* 

X CLEARO =6912 THE CONTENTS OF FIXED_LARRAY BEFORE CLEAR ARE “+ 
0121111" AND *#0222222" 

% CLEARO =6912 THE CONTENTS OF CHAR_ARRAY AFTER CLEAR ARE * * 
AND" * 

% CLEARO =6912 THE CONTENTS GF FIXED_ARRAY AFTER CLEAR ARE "#0 
000000" AND "#0000000" 

X CLEARG =6912 GOOD BYE 

CLEARO =6912 EQJe TIME = 1522825722 
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CLOSE 


The CLOSE verb explicitly terminates program control over a file. 


If there are no close attributes specified with the CLOSE verb, the program gives up control of the 
file to the MCP and the memory space is not released. If a read or write operation is attempted on 
the file, the file is reopened with the existing FIB. Even if an explicit open is done, the FIB is not 
rebuilt. 


An implicit close is performed by the MCP when the program goes to end of job and when the file 
was not explicitly closed by the program. An implicit close with release is performed unless the attri- 
butes in the FILE declaration override the RELEASE close attribute. 


SDL and UPL Syntax: 
ea ee ee a ee 
<switch-file-identifier> (<index>) — WITH 


CODE_FILE ' 
CRUNCH / 
IF_NOT_CLOSED 

LOCK 

NO_ REWIND 

PURGE 

REEL 

RELEASE 

REMOVE 

ROLLOUT 


Syntax Semantics: 


file-identifier 
This file identifier can be any valid SDL/UPL file identifier and specifies the file to be closed. 


switch-file-identifier 
This file identifier can be any valid SDL/UPL switch file identifier and specifies the file to be 
closed. 


WITH ; 
The keyword WITH is optional and specifies that close keyword options are to follow. 


CODE__FILE 
The keyword CODE__FILE causes the SDL/UPL program to notify the MCP to close a file as 
a code file. A code file is a file that can be executed on the B 1000 computer system. 
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CRUNCH 
The keyword CRUNCH causes the clisk file header to be modified such that the AREAS file attri- 
bute is assigned a value of 1 and the BLOCKS PER AREA file attribute is assigned the actual 
size used. Also, the CRUNCH keyword causes the SDL/UPL program to notify the MCP to re- 
lease all memory space used for the file and to enter the file name into the disk directory. The 
CRUNCH keyword applies only to disk files that are opened with the OUTPUT and NEW file 
attributes and to those that have only one area allocated. 


IF_NOT__CLOSED 
The keyword IF_.NOT__CLOSED prevents the attempted close of an unopened file. The MCP 
terminates a program that attempts to close a file that is not open. 


LOCK 
The keyword LOCK causes the SDL/UPL program to notify the MCP to enter the file name 
into the disk directory and to release all memory space used for the file. 


NO__REWIND 
The keyword NO__REWIND causes the SDL/UPL program to notify the MCP to close a tape 
file without rewinding the tape. 


PURGE 
The keyword PURGE applies only to disk and tape files. 


For disk files, PURGE causes the SDL/UPL program to notify the MCP to remove the file name 
from the disk directory, to release all memory space used for the file, and to return the disk 
space used by the file to the DISK.AVAILABLE table. 


For tape files, PURGE causes the SDL/UPL program to notify the MCP to rewind and scratch 
the tape. 


REEL 
The keyword REEL causes the SDIL/UPL program to notify the MCP to close the current reel 
of a multireel tape file and leave the actual file open. 


RELEASE 
The keyword RELEASE applies only to disk and tape files. 


For disk files, the RELEASE keyword causes the SDL/UPL program to notify the MCP to re- 
lease all the memory space used for the file and remove the file name from the disk directory. 
If the file is a new disk file, the RELEASE keyword does not lock the disk file in the disk direc- 
tory. The LOCK keyword must be specified in order to lock a new disk file in the disk directory 
when the file is closed. 


For tape files, the RELEASE keyword causes the SDL/UPL program to notify the MCP to re- 
wind the tape and leave the tape in a ready state. 


REMOVE 
The keyword REMOVE causes the SDL/UPL program to notify the MCP to check the disk di- 
rectory for a duplicate file name. If a duplicate file name is found, the MCP removes the old 
entry and updates the disk available table on the old file’s disk pack. 
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ROLLOUT 
The keyword ROLLOUT causes the SDL/UPL program to notify the MCP that the file is to 
be rolled out to disk. 


The keysymbol comma (,) is optional and is used to separate the options of the CLOSE verb. 


The keysymbol virgule (/) is optional and is used to separate the options of the CLOSE verb. 
Examples: 


CLOSE MASTERFILES 

CLOSE LINE RELEASE» IF_NOT_CLOSED?3 
CLOSE WCRKFILE PUREE; 

CLOSE TAPEFILE NG_BEWIAC? 

CLOSE CISKFILE CRUACK LOCK; 


Example Program: 


FILE LINE CDEVICE 
DIsk CDEVICE 
CARD CDEVICE 
TAPE CDEVICE 


PRINTER» RECORDS = 132/1)> 
DISKs», RECORDS = 180/20). 
CARD_READER» RECORDS = 80/1)» 
TAPE_PE» RECORDS = 180/1);3 


Declares the 
files LINE» DISK» 
CARD» and TAPE. 


we FE ve 


OPEN LINE WITH OUTPUT NEWs Z Opens the files 
OPEN DISK WITH OUTPUT NEW LOCKs XY LINE» DISK» CARD» 
OPEN CARD hiTH INPUT; Z and TAPE. 

OPEN TAPE WITH OUTPUT NEWs 

ZIP "SO CLOSs*; % Sets the MCP CLOS 


Z option. 


CLOSE LINE WITH RELEASE IF_NOT_CLOSECS % Closes the files 
CLOSE DISK WITH CRUNCH REMOVES % LINE» DISK< CARD» 
CLOSE CARD WITH RELEASE IF_NOT_CLOSED> % and TAPE. 

CLOSE TAPE WITH REEL> 


ZIP "RO CLOSs"> % Resets the MCP 
% CLOS option. 

STOP> 

FINI, 


Z This example program shows various ways to close files of 

% different device types-~ The MCP CLOS option its set to show 

Z% how the MCP actuatly closes the file as a result of performing 
% the CLOSE verb. 
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The COMMUNICATE__WITH__GISMO verb is used exclusively by the MCP, or by an SDL program 
that is to run without the MCP to communicate with GISMO. If an SDL program uses this verb while 
the MCP is running, the system halts with the L-register equal to @0D0040@ (A program other than 
the MCP attempted a COMMUNICATE__WITH__GISMO or GISMO__COMMUNICATE 
(T = LIMIT__REGISTER). 


The value of <communicate> is made non-self-relative by pushing the value to the value stack, if 
necessary. The absolute address of <communicate> is stored into the T-register and its length is stored 
into the L-register. The appropriate swapper value is stored in the X-register and control is passed to 
GISMO. Any value returned by GISMO is described by the same descriptor on the evaluation stack 
that was used to pass a value to GISMO. 


SDL Syntax: 

—— COMMUNICATE_WITH_GISMO (<cornmunicate> ) ; so 
Syntax Semantics: 

communicate 


This field can be any valid SDL literal, identifier or expression and specifies the information to 
be passed to GISMO. 


Example: 


CECLARE GIS*C_INFC 11 (€24)3 
GISMC_INFO = 03 


COMMUNICATE_WITH_CISMC Ca44e CAT Gillilia), 


STCPs 
FINI; 


% This examete oertoras the COMMLAICATE_hKITH_CISMC 
% ver& to psess a44liliita to GIsed. 
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COMMUNICATE 


The COMMUNICATE verb passes control to the MCP. The information stored in <MCP-communi- 
cate> is given to the MCP to act upon. 


SDL Syntax: 

—~ COMMUNICATE (<MCP-communicate> ) ; — 
Syntax Semantics: 

MCP-communicate 


This field can be any valid SDL literal, identifier, or expression that returns a value and it must 
specify a valid MCP communicate. 
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COMPILE__CARD__INFO 


The COMPILE__CARD__INFO verb stores the information used to initiate the compilation of this 
program into <destination>. 


The following is the format of the information that is stored in <destination>. 


Item Data Type Length 
OBJECT NAME CHARACTER 30 
EXECUTE TYPE CHARACTER 2 
COMPILER PACK IDENTIFIER CHARACTER 10 
COMPILER INTERPRETER NAME CHARACTER 30 
COMPILER INTRINSIC NAME CHARACTER 10 
COMPILER PRIORITY CHARACTER 2 
COMPILER SESSION NUMBER CHARACTER 6 
COMPILER JOB NUMBER CHARACTER 6 
COMPILER 1ST AND 2ND NAMES CHARACTER 20 
COMPILER CHARGE NUMBER CHARACTER 4 
FILLER CHARACTER 1 
COMPILATION DATE AND TIME BIT 36 
FILLER BIT 4 
COMPILER USERCODE CHARACTER 10 
COMPILER PASSWORD CHARACTER 10 
COMPILER PARENT JOB NUMBER CHARACTER 4 
COMPILER PARENT QUEUE ID CHARACTER 20 
COMPILER__LS__ BOOLEAN CHARACTER ] 
SECONDS__BEFORE__ DECAY CHARACTER 4 
PRIVILEGED CHARACTER 1 
COMPILER__RESTRICTIONS CHARACTER 2 


SDL and UPL Syntax: 


—— COMPILE_CARD_INFO ( <destination> ) ; —— 


Syntax Semantics: 


destination 
This field can be any valid SDL/UPL identifier and specifies the data name in which to store 
the compile card information. 


Example: 


CECLARE COMPILES_INFCRMATICN CHARACTER Cl@1)s % Stores the compite 


COMPILE _CARC_aNFQ CCOMPILER_INFCRMATICN); % card infcrmation 
Z into identifier 
% COMPILER_INFORMATION. 
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COMPILE_CARD_INFO 


Example Program: 


DECLARE 


COMPILE_ 


DISPLAY 
DISPLAY 
DISPLAY 
DISPLAY 


DISPLAY 
DISPLAY 
DISPLAY 
DISPLAY 
DISPLAY 


DISPLAY 
DISPLAY 


DISPLAY 
DISPLAY 
DISPLAY 


DISPLAY 


DISPLAY 
DISPLAY 
DISPLAY 
DISPLAY 
DISPLAY 
STOPs 


1137833 


01 CCI CHARACTER» 

03 OBJECT_NAME CHARACTER (€30)> 
O03 EXECUTE_TYPE CHARACTER (€2)» 
03 COMPILER_PACK_ID CHARACTER (€10)- 
03 COMPILER_INTERPRETER_NAME CHARACTER €30)> 
03 COMPILER_INTRINSIC_NAME CHARACTER (€10)>» 
03 COMPILER_PRIORITY CHARACTER (€2)» 
03 COMPILER_SESSION_NUMBER CHARACTER (€6)» 
03 CUMPILER_JOB_NUMBER CHARACTER (69> 
03 COMPILER_1ST_AND_2ND_NAMES CHARACTER (€20)> 
03 COMPILER _CHARGE_NUMBER CHARACTER C€7)> 
03 FILLER CHARACTER (€1)> 
03 COMPILATION_DATE_AND_TIME BIT (€36)>» 

03 FILLER aces BIT €4)> 

03 COMPILER_USERCODE CHARACTER (€10)>» 
03 COMPILER PASSWORD CHARACTER (10). 
03 COMPILER_PARENT_JOB_NUMBER CHARACTER (€4)>» 
03 COMPILER_PARENT_QUEUE_ID CHARACTER €20)>» 
03 COMPILER_LS_BOOLEAN CHARACTER C1)» 
03 SECONDS _BEFORE_DECAY CHARACTER C4)» 
03 COMPILER_PRIVILEGED CHARACTER (19> 
03 COMPILER_RESTRICTIONS CHARACTER £2)3 

CARD_INFO CCCI); 


("OBJECT NAME IS * CAT OBJECT_NAME)3 
("EXECUTE TYPE IS ™ CAT EXECUTE_TYPE)? 
C"COMPILER PACK IDENTIFIER IS ™ CAT COMPILER_PACK_ID)3 
C"COMPILER INTERPRETER NAME IS ™ CAT 
COMPILER_INTERPRETER_NAME)? 
C™COMPILER INTRINSIC NAME IS * CAT COMPILER_INTRINSIC_NAME)D3 
C"COMPILER PRIORITY IS * CAT COMPILER_PRIORITY)3 
C"COMPILER SESSION NUMBER IS ™ CAT COMPILER_SESSION_NUMBERD> 
C"COMPILER JOB NUMBER IS * CAT COMPILER_JOB_NUMBER)3 
C"CUMPILER 1ST AND 2ND NAMES OF RUNNING PROGRAM IS * CAT 
COMPILER_1ST_AND_2ND_NAMES 3 
C*COMPILER CHARGE NUMBER IS " CAT COMPILER_CHARGE_NUMBER)3 
C°COMPILATION DATE AND TIME IS ®™ CAT 
CONVERT CCOMPILATION_DATE_AND_TIME» CHARACTER) D3 
("COMPILER USERCODE IS * CAT COMPILER_USERCODE)3 
C"COMPILER PASSWORD IS ™ CAT COMPILER_PASSWORD)3 
C"COMPILER PARENT JOB NUMBER IS ™ CAT 
COMPILER_PARENT_JOB_NUMBER)3 
C™COMPILER PARENT QUEUE IDENTZFIER IS * CAT 
COMPILER_PARENT_QUEUE_ID)3 
C"COMPILER LS BUOLEAN IS * CAT COMPILER_LS_BOOLEAN)3 
C"SECONDS BEFORE DECAY IS * CAT SECONDS_BEFORE_DECAY)3 
C"COMPILER PRIVILEGED IS * CAT COMPILER_PRIVILEGED)3 
C"COMPILER RESTRICTIONS IS * CAT COMPILER_RESIRICTIONS)s 
("GOOD BYE"); | 
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COMPILE _CARD_INFO 
FINI; 


% This example program uses the COMPILE_CARD_INFO verb and 
% displays the information on the ODI. 


Output from Example Program: 


CO_CA_LINFOG =7102 BOJ- PP=%» MP=4 TIME = 1623024622 


% CO_CA_INFO =7202 OBJECT NAME IS CO_CA_INFO 

% CO_CA_INFO =7102 EXECUTE TYPE IS 01 

% CO_CA_INFO =7102 COMPILER PACK IDENTIFIER IS USER 

% CO_CA_INFO =7102 COMPILER INTERPRETER NAME IS SDL INT 
ERP1IM 

% CO_CA_INFU =7102 COMPILER INTRINSIC NAME IS SOL-INTRIN 

% CO_CA_INFO =7102 COMPILER PRIORITY IS 04 

Z CO_CA_INFO =7102 COMPILER SESSION NUMBER IS 000000 

% CO_CA_INFO =7102 COMPILER JOB NUMBER IS 007102 

% CO_CA_INFO =7102 COMPILER 1ST AND 2ND NAMES OF RUNNING PROGRAM IS 

CO_CA_INFO 

% CO_CA_INFO =7102 COMPILER CHARGE NUMBER IS 0999999 

% CO_CA_INFO =7102 COMPILATION DATE AND TIME IS 58508F4D1 

% CO_CA_INFO =7102 COMPILER USERCODE 15 

% CO_CA_INFO =7102 COMPILER PASSWORD IS 

% CO_CA_INFO =7102 COMPILER PARENT JCB NUMBER IS 7000 

%Z CO_CA_INFO =7102 COMPILER PARENT QUEUE IDENTIFIER IS SMCS ##0000 
0005 

% CO_CA_INFO =7102 COMPILER LS BOOLEAN IS 1 

% CO_CA_INFO =7102 SECONDS BEFORE DECAY IS 0029 

% CO_CA_INFO =7402 COMPILER PRIVILEGED IS 1 

% CO_CA_INFO =7102 COMPILER RESTRICTIONS IS 00 

% CO_CA_INFO =7102 GOOD BYE 

CO_CA_INFO =74102 EQJs TIME = 16231:210.5 
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CONSOLE SWITCHES 
CONSOLE_ SWITCHES 


The CONSOLE__SWITCHES verb places a 24-bit, self-relative value of the 24 console switches on the 
top of the evaluation stack. This verb only applies to B 1720 computer systems. 


SDL and UPL Syntax: 


——~ CONSOLE_SWITCHES eee 
Example: . 
DECLARE SWITCH_VALUES BIT (24) % Identifier SWITCH_VALUES is 


SWITCH _ VALUES := CONSOLE_SWITCHESsS <%Z% assigned the current vatue of 
% the 24 console switches on the 
% B 1720 systen. 


Example Program: 


DISPLAY C"THE CURRENT VALUE OF THE 24 CONSOLE SWITCHES EQUALS * 
CAT CONVERT CCONSOLE_SWITCHES» CHARACTER) )3 


Output from Example Program: 


SWITCHESO =5361 BOS. PP=4e MP=4 TIME = 0923323021 

Z SWITCHESO =5361 THE CURRENT VALUE OF THE 24 CONSOLE SWITCHES 
EQUALS AAAAAA 

SWITCHESO =5361 EGJ» TIME = 0923323522 
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The CONTROL__STACK__BITS verb leaves, on the top of the evaluation stack, a 24-bit, self-relative 
value with a BIT data type. The BIT data type is the number of bits left in the control stack until 
the control stack overflows. 


SDL Syntax: 
—— CONTROL_STACK_BITS fn 
Example: 

DECLARE BITS_LEFT BIT (24); % Assigns the identifier BITS_LEFT 


BITS_LEFT 2= CONTROL_STACK_BITSs % the number of bits left on the 
% controt stack before overflow. 


Example Program: 


DISPLAY ("THE NUMBER OF BITS LEFT ON THE CONTROL STACK EQUALS * 
CAT CONVERT CCONTROL_STACK_BITS» CHARACTER) )>; 


Output from Example Program: 


CONTROLO =5337 BOJ. PP=45 MP=4 TIME = 082533232.5 

Z CONTROLO =5337 THE NUMBER OF BITS LEFT ON THE CONTROL STACK 
EQUALS 002A0 

CONTROLO =5337 EGJ. TIME = 08253536.7 
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CONTROL__STACK__TOP 


The CONTROL__STACK._TOP verb returns a 24-bit value which is the base-relative address of the 
next entry to be placed on the control stack. 


SDL Syntax: 


——— CONTROL_STACK_TOP ee ___ _ 


Example: 


DECLARE TOP_LOF_STACK_ADDR BIT (€24)3 % Identifier TOP_OF_STACK_ADDR 
TOP_LOF_STACK_ADDR = CONTROL_STACK_TOP* % is assigned the vaiue of the 
Z next entry to be placed on 
Z the control stack. 


Example Program: 
DISPLAY ("THE ADDRESS OF THE NEXT ENTRY TO BE PLACED ON THE CONTROL” 
CAT ™ EQUALS ™ CAT CONVERT CCONTROL_STACK_TOPs CHARACTER) )>3 
Output from Example Program: 


CONTROLO =5349 BOJ» PP=4e MP=4 TIME = 09212225.2 
% CONTROLO =5349 THE ADDRESS OF THE NEXT ENTRY TO BE PLACED ON THE 


CONTROL EQUALS 002880 
CONTROLO =5349 E0J-e- TIME = 0951253025 
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The CONVERT verb causes <convert-value> to be changed from one data type to another. A data 
type keyword must be specified. 


The keynumbers 1, 2, 3, and 4 are used only with bit-to-character or character-to-bit conversions. The 
keynumber specifies the number of bits in the bit string which correspond to a single character in the 
character string. The default keynumber is 4, which produces a hexadecimal conversion. 


A bit-to-character conversion does not return decimal digits. To convert a bit string to decimal digits, 
store the bit string into a FIXED identifier, and then convert the FIXED identifier to a CHARACTER 
identifier. The DECIMAL verb can be used for the decimal conversions. 


The conversion of data from type FIXED to type CHARACTER results in a sign and seven printable 
(EBCDIC) decimal numbers. The leading printable zeros and the arithmetic sign are not suppressed. 


The following procedure must be performed to convert a field from data type CHARACTER to 
FIXED. 


1. <convert-value> (with a CHARACTER data type) is scanned from left to right until a sign 
or non-space character is encountered. If the sign is negative, the FLXED number is expressed 
in the complement form of 2. 

2. If a sign is encountered, it is noted and removed. 

3. After encountering a sign or nonspace character, only the rightmost seven characters of <con- 
vert-value> are converted. 

4, The rightmost four bits of each character are converted to a value between 0 and 15, inclusive. 
The leftmost four bits of each character are ignored. Each value is then multiplied by its re- 
spective ten’s position and sumrnoed together. For example, the hexadecimal representation of 
the characters ‘‘AB5”’ is @(4)C1C2F5@. The rightmost four bits of each character is 125. The 
2 is multiplied by 10, the 1 is multiplied by 100, and the sum of 5 + (2 * 10) + (5 * 100) 
is 525. The leftmost (sign) bit is ignored for decimal values in excess of +8,388,607 or 
— 8,388,608. 
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SDL and UPL Syntax: 


—— CONVERT (<convert-value>, FIXED )— 
L- BIT 
| CHARACTER 


oO wo 


~yntax Semantics: 


convert-value 
This field can be any valid SDL/UPL literal, identifier, or expression that returns an addressable 
item and specifies the value to be converted. 


BIT 
The keyword BIT specifies that the resulting value of <convert-value> is to be a BIT data type. 

CHARACTER 
The keyword CHARACTER specifies that the resulting value of <convert-value> is to be a 
CHARACTER data type. 

FIXED 
The keyword FIXED specifies that the resulting value of <convert-value> is to be a FIXED 
data type. 

1 
The keynumber 1 specifies the number of bits to be one and it is valid for character-to-bit and 
bit-to-character conversions. 

2 
The keynumber 2 specifies the number of bits to be two and it is valid for character-to-bit and 
bit-to-character conversions. 

3 
The keynumber 3 specifies the number of bits to be three and it is valid for character-to-bit and 
bit-to-character conversions. 

4 


The keynumber 4 specifies the number of bits to be four and it is valid for character-to-bit and 
bit-to-character conversions. 
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Table 9-3 shows the possible data type conversion combinations. 


Table 9-3. Data Type Conversion Combinations 


Original Data Type 
Data Type Desired 
BIT BIT 
BIT CHARACTER 
BIT FIXED 


CHARACTER BIT 


CHARACTER CHARACTER 
CHARACTER FIXED 


FIXED BIT 

FIXED CHARACTER 

FIXED FIXED 
Example 1: 


CONVERT C"-72581%>% FIXEC) 


Example 2: 


Result 
No change. 


Bits are converted to characters based on 
bit group size. If no bit group size is 
specified, the bit group size defaults to 4. 


The rightmost 24 bits are returned to the 
expression. 


Characters are converted to bits based on 
bit group size. If no bit group size is 
specified, the bit group size defaults to 4. 


No change. 


The character expression is converted to a 
FIXED data type. The rightmost 4 bits of 
the 7 rightmost characters is converted to a 
binary number. If the minus sign character 
is the eighth character from the right, the 
2’s complement of the 24-bit field is 
returned. 


The data type is changed to BIT. 


The numeric value of the expression is 
converted to decimal numbers in 8-bit 
EBCDIC character format. Leading zeros are 
not suppressed. The result is a CHARACTER 
data field of seven characters and a sign 
character. 


No change. 


x 


The value “72581 its returned. 


CONVERT CaC2I752an CHARACTER» 4) Z% The value "LEA" is returned. 


Example 3: 
CONVEPT CaCidL10Olle» FIXED) 
Example 4: 


CONVERT ("1325 BITs 2) 
9-40 


% The vatue 27 1s returned. 


% The vatue ¢(€2)132¢ is returned. 
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Example 5: 
CONVERT €"132% EIT» 43 z The value @€4)132¢ is returned. 
Example 6: 
CONWEFT €"2% EIT) % The vatue a€4)22 is returned. 
Example 7: 


Assume that the identifier CX contains a character whose binary value is @(1)00001111@ and 
identifier B is declared as BIT (4). 


6 ¢= CCAVERT COX» CHARACTER 4)3 4 Identifier 8 18 assigned the 
% hexadeciwal vatue aFa cr 
% a@C(id1l’iira. 


Example 8: 


Assume that the identifier CX contains a character whose binary value is @(1)00001111@ and 
identifier B is declared as BIT (4). 
G6 s= CONVERT CCK» CHARACTER 3)> Icentifier 8 is assigned the 
octal value cf a€3)74 cr 
aCiVLilte. Gnty the cigqhtmost 
three cits ot identifier CX are 
assiqned to &. 


RE RE BR RE HE 


Example 9: 
Assume identifier CARD contains the characters +4095 and FX is of data type FIXED. 


FX = CCAVEFT CCARL> FIXED)S 4% Idertifier FX is aéssiqned the 
%Z hexadecimal vatue aeQCO7FFa. 


Example 10: 


Assume identifier N is of data type FIXED with a value of +5 (000000000000000000000101) and 
identifier B is of data type BIT (8) with a value of @BC@ or @(1)10111100@. 


CUTPUT s= "ENTRY ANC. " % This statement assiqrs to the 
CAT CONVERT CN» CRAFACTER) %Z identifier OUTPLT the vatue of 
CAT © TS. * 4 TENTRY NC. #COCCCES IS 2330". 


CAT CUNVEFT (Gr CHARACTER» 2)3 
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In example 10, the literal value ‘SENTRY$NO.$’’, the result of converting identifier N, the literal value 
‘*$1S$’’, and the result of converting identifier B, are made into a continuous string of data by using 
the CAT operator. The result of converting the FIXED value contained in identifier N to a printable 
character is +0000005, with no suppression of the 0’s (zeros) or arithmetic sign. The result of convert- 
ing the BIT value contained in identifier B, when using the character-to-quartal syntax as specified, 
is as follows: 


10 11 ti 600 Chinary) 
2 3 3 C Cquartal) 
Fe F3 €3 #FO Chexaceciwel character) 


Example Program: 


DECLARE 
VALUE CHARACTER €16)» 
B BIT Ci6)- 
F FIXED» 
I FIXED» 
FLAG BIT (€1)3 


DO FOREVER; 


DISPLAY C™ENTER 16 1°S5 OR O7S OR ENTER BYE TO GO TO EOJ"); 
ACCEPT VALUE? 
IF VALUE = “BYE” THEN STOP? 
FLAG 2= 93(1)00% 
e= OO» 
DO LOOP FOREVER; 
IF C(CSUBSTRCVALUEsIo1) = *12°) OR CSUBSTRCOVALUEsI»1) = "0")) 
THEN IF CBUMP I) > 15 THEN UNDO LOOP>s 
ELSE>s 
ELSE DOs 
FLAG 2= a2(€1)1023 
UNDO LOOPs 
ENDs 
END LOOPS 
If FLAG = a(1)0a 
THEN DOG> 
B 2= CONVERT CVALUE» BITo 1)3 
F 3= CONVERT (B» FIXED)» 
DISPLAY C"°THE VALUE = ™ CAT CCONVERT CF» CHARACTER)) )s 
ENDs 
ELSE DISPLAY C"THE VALUE ENTERED WAS NOT ALL 1°S AND 09S"), 


ENDs 

FINI; 

Z This example program uses the CONVERT verb to calcutate 

% the decimal value of a L6-digit binary numbers The 

X program accepts from the ODT a binary number with a data 
% type of CHARACTER and converts this field to a fietd with 
% data type of BITj The bit field is converted to a field 
Z with a data type of FIXED which is converted to a data 

2 type of CHARACTER and displayed on the ODT. 
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DATA_ADDRESS 


The DATA__ADDRESS verb returns a 24-bit value that is the base-relative address of <identifier>. 


SDL and UPL Syntax: 


— DATA_ADDRESS ( <identifier> ) SSF 


Syntax Semantics: 


identifier 


This identifier can be any valid SDL/UPL identifier and specifies the field name from which the 


address is to be determined. 


Examples: 
DECLARE 
BIT_FIELD BIT (1id» 
CHARACTER_FIELD CHARACTER» 
FIXED_FIELD FIXED» 
ADDRESS BIT £24)3 


ADDRESS = DATA_ADDRESS CBIT_FIELD)s Z% ADDRESS 
% address 


ADDRESS == DATA_ADDRESS CCHAR_FIELD)* 2% ADDRESS 
% address 


ADDRESS == DATA_ADDRESS CFIXED_FIELD)> Z ADDRESS 
% address 


Example Program: 


DECLARE FIELD BIT (€1)5 
DISPLAY ("THE ADDRESS OF FIELD IS * 


is 
of 


assigned the 
BIT_FIELD. 


assigned the 
CHAR_FIELD. 


assigned the 
FIXED_FIELD. 


CAT CONVERT CDATA_ADDRESSCFIELD)»CHARACTER®4) 5 


STOPS 
FINIs 


% This example program disptays the base-relative address 


% of identifier FIELD and goes to end of job. 
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The DATA__LENGTH verb returns the length of <data-item> in bits, regardless of the data type. 


SDL Syntax: 


— DATA_LENGTH (<data-item> ) —--———-—_ | 


Syntax Semantics: 


data-item 
This field can be any valid SDL literal, identifier, or expression that returns a value and specifies 


the field in which to obtain the length. 
Example: 


LENGTR = DATA_LENGTH CA); Z Identifier LENGTH is assigqred 
Z tength af identifier A. 


Example Program: 


DECLAFE F FIXECs 
CiQ CHARACTER €1C)> 
€2C EIT (€20)5 


CESPLAY "THE LENGTt OF TCENTIFIER F IS * CAT 
CONVERT CLATA_LLENECTH CFI» CHARACTER); 

CISPLAY “THE LENGTH OCF TCENTIFIER C19 IS * CAT 
CONVERT COATA_ LENGTH (T10)% CHARACTER); 

CISPLAY “THE LENGTt CF TJFENTIFIFER B20 IS ™* CAT 
CONVERT COATA_LENGTH CA87Z0)>» CKARACTER); 

STOP? 

FINI: 


% This examcle orcgran uses the CATA_LENGTH verb to find the 
% length of fixed» characterr anc bit fields. 


Output from Example Program: 


DL_LENGTHO =2145 EGS. PF=4» MF=4 TIME = 1523023629 

4 C_LENGTHG =2145 THE LEAGTH OF ICENTIFIE€EF F IS OC0O01E8 
Z D_LENGTFC =2145 THE LENGTH OF ICENTIFIER C10 IS C00C59O 
Z O_LLENGTHC =2145 THE LENGTH OF ICENTIFIER 820 IS COCCL4 
CLLENGTEC =2i45 ECU. TIME = 153350249.9 
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DATA_TYPE 


The DATA__TYPE verb returns a bit string representing the data type of <data-item>. A value of 
@44@ represents a FIXED data field. A value of @48@ represents a CHARACTER data field. A 
value of @40@ represents a BIT data field. 


SDL Syntax: 


—— DATA_TYPE (<data-item> ) > —_ 


Syntax Semantics: 


data-item 
This field can be any valid SDL literal, identifier, or expression that returns a value and specifies 
data field in which to determine the data type. 


Example: 


TYPE s= CATA_TYPE CA) % Identifier TYPE is assigned the 
% cata type vatue of identifier A. 


Example Program: 


DECLARE F FIXED» 
Cl10 CHARACTER (10)> 
B20 BIT C20)5 


OISPLAY “THE DATA TYPE OF IDENTIFIER F IS * CAT 
CONVERT CDATA_LTYPE CF)» CHARACTER)? 

DISPLAY “THE DATA TYPE OF IDENTIFIER C10 IS * CAT 
CONVERT CDATA_TYPE (C1035 CHARACTER)>s 

DISPLAY “THE DATA TYPE OF IDENTIFIER 820 15 * CAT 
CONVERT CDATA_TYPE €B20)» CHARACTER)? 

STOPs 

FINTs 


ZX This example program displays the data type of fixed» character» 
% and bit fields. 


Output from Example Program: 


D_TYPEO =2150 BOJ. PP=4» MP=4 TIME = 15235227.6 

% OLTYPEO =2150 THE DATA TYPE OF IDENTIFIER F IS 000044 

X D_LTYPEO =2150 THE DATA TYPE OF IDENTIFIER C10 IS 000048 
% DLTYPEO =2156 THE DATA TYPE OF IDENTIFIER 820 IS 000040 
D_TYPEO =2150 EQJ. TIME = 15235236.9 
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The DATE verb returns a bit or character string containing the current (run time) date. 


Specifying DATE or DATE (MONTH, CHARACTER) returns the same result. 
SDL and UPL Syntax: 


—DATE | cr ar aS Se 
( DAY BIT -—— ) 

JULIAN — Ob CHARACTER 

MONTH — DIGIT — 


YEAR ——— 


Syntax Semantics: 


DAY 
The keyword DAY causes the program to return the current day, month, year in the DDMMYY 


format, where DD is the day of the month, MM is the month, and YY is the year. 


JULIAN 
The keyword JULIAN causes the program to return the current year and julian day in the 


YYDDD format, where YY is the year and DDD is the julian day of the year. 


MONTH 
The keyword MONTH causes the program to return the current month, day, and year in the 


MMDDYY format, where MM is the month, DD is the day of the month, and YY is the year. 


YEAR 
The keyword YEAR causes the program to return the current year, month, and day in the 


YYMMDD format, where YY is the year, MM is the month, and DD is the day of the month. 
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BIT 
The keyword BIT causes the program to return the DAY, JULIAN, MONTH, and YEAR specifi- 
cations in the following formats: 

DAY EIT (€16)» 
CC. E18 €5S.2¢ 
My BRIT €4)> 
YY EIT €7)3 

JULIAN BIT C1lE)» 
YY €1T C7)» 
COO RIT (9) 

MONTH FIT C16)» 
MyM RYT €4)> 
CC ET €5)» 
YY EIT C€7)> 

YEAR FEIT €C16)>» 
YY EIT (€7)>» 
Me EIT (€4)>» 
CC EIT (505 

DIGIT 


The keyword DIGIT causes the program to return the DAY, JULIAN, MONTH, and YEAR 
specifications in the following formats: 


DAY EIT (24), 
CE BIT Ce), 
My FIT C8)» 
YY €]3T (8)5 


JUL TAA EIT 20)» 
YY BIT Ce)» 
CCO ELT Clic) 


MONTH BE1T (24)>» 
Me BIT CE)» 
OC €17 C8), 
YY €17T @6)5 


YEA FIT (c4)» 
YY &iT (€é€)- 
MM FIT C&)>» 
CC ETT Cb); 
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CHARACTER 
The keyword CHARACTER causes the program to return the DAY, JULIAN, MONTH, and 
YEAR specifications in the following formats: 


CAY EIT C48)» 
CO €1T C1€)» 
MP EIT C1E)» 
YY E£IT (€16);5 


JULIAN FIT (€4C)> 
YY FIT €16)- 
COO €1T €c4)s 


WONTE E1T (48)6 
“mM ELT C1E)» 
CO FUT Cie)» 
YY E1T Cié)s 


YC AR E1T C48)» 
YY EIT C1€)> 
he FT €16)- 
CO bt? (leds 


Table 9-4 shows the format and length of each option. 


Table 9-4. Format and Length of each DATE Verb Option 


Bit Digit Character 


Option Format Length Length Length 
JULIAN YY/DDD 7/9 2/3 2/3 
MONTH MM/DD/YY 4/5/79 2/2/2 = 2/2/2 
DAY DD/MM/YY 5/4/7 = .2/2/2)—.2/2/2 


YEAR YY/MM/DD 7/4/5 — 2/2/2 —-2/2/2 


NOTES 
YY represents the year, DD or DDD represents the day, and MM represents 
the month. 


Digits are equal to four bits, which are two decimal digits per byte. Bytes 
are 8 bits long. 


Characters are equal to eight bits or one byte. 
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DECLARE D BIT (24)>» 
J CHARACTER (40)>» 
M BIT (€16)> 
Y SIT (€24)5 


DATECDAY» DIGIT) 

DATEC JULIAN» CHARACTER )3 
DATECMONTHs BIT)I¢ 
DATECYEAR» DIGIT); 


<= 


aé te be ce 
noun i 


the system"s date is December 3» 1979» then variables De J» 
and Y have the following bit and hexadecimal values: 


x =~ 
eh 


= 9€19000000110000110001001111a 
AC4030ASFOQ 


o 


901)22210111121110011121001121110011111101112 
ACK DFTF OF SF3FT& 


iii 


4€61)921000001110011119 
aC4)ALAFQ 


ii ii 


401910011111100000112 
2€4)9F 83a 


MN MM NNN NM NM NEM PE 
i 


ag 
iii 
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Example Program: 
DECLARE 
O01 DAY_MONTH_YEAR» 
03 D_DD CHARACTER (€2)9 
03 D_MM CHARACTER C2)» 
03 OD_YY CHARACTER C2)» 
O01 JULIAN_DATE>® 
03 J_YY CHARACTER (€ 2)» 
03 J_DD CHARACTER (3)-» 
O01 MONTH_DAY_YE AR» 
03 M_MM CHARACTER C2)» 
03 =M_DD CHARACTER C2)» 
03 M_YY CHARACTER C2)» 
01 YEAR_MONTH_DAY» 
03 Y_YY CHARACTER (€2)3>» 
03 Y_MM CHARACTER €2)— 
03 Y_DD CHARACTER (€2)3 


ATE CDAYe CHARACTER)=> 


DAY _MONTH_YEAR D 
DATE CMONTH» CHARACTER); 
D 
D 


MONTH_DAY_YEAR 
YEAR_MONTH_DAY 
JUL IAN_DATE 


ATE CYEAR» CHARACTER); 
ATE CJULIAN>» CHARACTER)? 


6s 00 ce ee 
tod uo 


DISPLAY C"THE JULIAN DATE IS ™ CAT J_YY CAT “/" CAT J_DD)3 

DISPLAY ("THE DAY/MONTH/YEAR IS * CAT D_DD CAT "/* CAT D_MM 
CAT "/* CAT D_YY)3 

DISPLAY ("THE MONTH/DAY/YEAR IS ™ CAT M_MM CAT "7" CAT M_DD 
CAT “/* CAT M_YY)2 ; 

DISPLAY C"THE YEAR/MONTH/DAY IS ™ CAT Y_YY CAT "/™ CAT Y_MM 
CAT “/" CAT Y_DD)3 


STOP> 
FINI> 


%2 This example program displays the current date in 
Z the JULIAN» DAY» MONTHe YEAR formats on the ODT. 
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DC__INITIATE__IO 


The DC__INITIATE__IO verb causes a data communications read or write operation for the port and 
channel address specified by <port> and <channel>, respectively. It also uses the input/output (I/O) 
descriptor address specified by <I/O-descriptor-address>. 


SDL Syntax: 


—— DC_INITIATE_10 (<port>, <channel>, <1/O-descriptor-address> ) ; —_ 


Syntax Semantics: 


port 
This field can be any valid SDL literal, identifier, or expression that returns a binary value and 


specifies the port on which the I/O operation is to occur. 


channel 
This field can be any valid SDL literal, identifier, or expression that returns a binary value and 


specifies the channel on which the I/O operation is to occur. 


I/O-descriptor-address 
This field can be any valid SDL literal, identifier, or expression that returns a 24-bit value and 


specifies the base-relative address of the I/O descriptor. 


Example: 


The incut/outpute 
defined ty the 1/0 
descrinter at the 
address of identifier 
DESC_AOCKESS» is 
initiatede 


CECLARE PORT BIT C4)» 
CEANNEL BIT C4)» 
DESC_ACCRESS SIT €24)3 

FORT t= 23 

CRANNEL t= 93 

CESC_ACDRESS t= 200GF £295 

CCLINITIATE_IC CPORT> CHANNELS CESC_ADORESS)3 


me PERE NN Ve 
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The DEBLANK verb repeatedly increments the address field of the descriptor for < first-character > 
until <first-character> describes a non-blank character. 


SDL Syntax: 


— DEBLANK (<first-character> ) ; 2 


Syntax Semantics: 


first-character 
This field can be any simple SDL identifier and specifies the first character to be examined. 


Example: 


CECLABE CATA CHARACTER (20)> % The reference identifier 
FEF CATA #EFERENCEsS REF _ CATA contains the 

DATA s= " ABCDEFGHTISELMNO"S first nonwtlank character 

REFER SEF _CATA TO SULBSTR COATA» Om 1)5 "A" after the DEBLANK verb 

DEPLANK CREF CATA); 1s cerformed. 


wre rR aA 


' Example Program: 


DECLARE ODT_INPUT CHARACTER (€50)- 
REFER_OOT REFERENC Es 


DO FOREVER: 
DISPLAY C"ENTER ANY 50 CHARACTERS OR ENTER B TO GO TO EQN") 
ACCEPT ODT_INPUTS 
REFER REFER_ODT TO SUBSTR CODT_INPUT» O» 1)3 


DEBLANK CREFER_ODT)3 


IF REFER_ODT = *B" THEN DOs 
DISPLAY ("GOOD BYE"); 
TOP> 
ENDs 
DISPLAY ("THE FOLLOWING IS THE FIRST CHARACTER THAT IS NOT BLANK"™)3 
DISPLAY CREFER_ODT)> 
ENDs 
FINI? 


ZX This example program accepts from the OOT any 5S0-character 
2 string and dispiays the first nonwtlank character in the 
ZX stringe If B is enterede the program goes to end of job. 
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The DECIMAL verb causes the value of <string> to be converted to a string of decimal digits. If 
the value generated has a length greater than 24 bits, only the rightmost 24 bits are converted. 


The number of characters returned is controlled by the value <string-size>. A maximum of eight 
decimal digits can be returned, even if the value of <string-size> is greater than 8. If <string-size> 
specifies fewer character positions than the total number of decimal digits in <string>, the resulting 
decimal number is truncated on the left. 


i 


SDL and UPL Syntax: 


—— DECIMAL (<string>, <string-size> ) we 


Syntax Semantics: 


string 
This field can be any valid SDL/UPL literal, identifier, or expression that generates a CHARAC- 
TER data type and specifies the name of the field to be converted. 


string-size 
This field can be any valid SDL/UPL integer, identifier, or expression that returns a 24-bit binary 
value and specifies the number of characters in <string> to be converted to decimal digits. The 
range of value for <string-size> is from 1 to 8, inclusive. 


Example 1: 


Converts att five characters of 

the Literal 12345 to the deciaal 
digits 12345 and assiqnrs them to 
identifier NUMBER. 


NUMRER 2= CECTMAL ChL2esds"55)5 


wx 


wR wr 


Example 2: 


Corverts eight of the characters 


~ 


NUFRFBER c= CECIVAL CFIELC_A»®@); 


% in FYJELD_LA to decimal digits 
% and assigns them to identifier 
% NUMBEF. 
Example 3: 
NUMBER ts % Evaluates the exrcressions 
DECIMAL CCEUMP FIELC_LE EY 3)3%8)5 Z% converts eight of the characters 


in the exceression to decimal 
digits» ard assigns them to 
NUMBER. 


wna 


Example 4: 


Identifier A is converted from 
a 24-bit binary vatue to a 
4-character numeric stringe 
The value 18 assiqned to 
identifier NUMBER. 


NUMBER S= CECIMAL CAs 493 


NMR NW 


a 2 
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Example 5: 
NUMFERK = CECIMAL CaFFanw 3); % Identifier NUMBER i¢ assigned 


Z the value 255. 


Example Program: 


DECLARE FIELD CHARACTER (6)> 


DO FOREVER> 
DISPLAY C"ENTER ANY 6 CHARACTERS OR ENTER BYE TO GO TO E0N™)s 
ACCEPT FIELD? 
TF FIELD = “BYE” THEN STOP> 
DESPLAY CDECINAL CCONVERT CFIELD» BIT» 4)» 8))5 
END> 


FINIs 
% This exaaple program accepts a 6™character field from 


Z the ODT and disptays its hexadecimat value using the 
2 DECIMAL verb. 
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The DECREMENT verb decrements <identifier > by the amount specified by <decrement-amount>. 
If the BY keyword is not specified, <identifier> is decremented by 1. If the DECREMENT verb is 
used in an expression, a descriptor of <identifier> is placed on the evaluation stack. 


If either <identifier> or <decrement-amount> has a length greater than 24 bits, only the rightmost 
24 bits are evaluated. If either <identifier> or an expression has a length less than 24 bits, <identifi- 
er> or <decrement-amount> is padded with leading zeroes. Character strings are treated as bit 
strings. 


SDL and UPL Syntax: 


—— DECREMENT < identifier> ee 
BY < decrement-amount> 


Syntax Semantics: 


identifier 
This field can be any valid SDL/UPL identifier and specifies the name of the field to be decre- 
mented. 

BY 


The keyword BY is required if <decrement-amount> is specified. 


decrement-amount 
This field can be any valid SDL/UPL integer, identifier, or expression that returns a binary value 
and specifies the amount that is subtracted from <identifier>. 


1137833 


Examples: 

CDECKEMENT Xs; % Sucotract 1 from Xe 

CDECREMENT X BY &s % Subtract 4 from Xe 

CECREMENT X BY Z35 % Subtract the value of 2 from X. 

A z= CECREMENT X EY Z> % Subtract the vatue of Z from Xp» 

Z assign the vaiue to Xe and then 
4 assiaqr the value of X to A. 

IF CCECKREMENY X BY 2) ECL ZERO % Subtract the vatue of Z from Xp» 
TREN eae 2» % assian the value to Xe ard then 
ELSE. «2-6 9 % perform the comnarisone 

CECREMENT A 6Y & t= C;> % Assign the value cf C to 8 and 

4 then subtract the vatue of C 
% from Ae Netice that C is 

% subtracted from A because of 
% the replacement detete teft 
Z part oreratcre 
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X 2= DECREMENT A EY 8 8= C3 Keoptace 8 by the vatue of Ce 
delete 8» subtract C from A» 


yA 
¥ 4 
% and assign the vatue to A and 
yA 


to Xe 
PROC _B CCECREMENT X)5 % Identifier X is decresented by 1 
4% and then X is passed to procedure 
% PROC_B. 
PRCC_ 2d CCCECKREMENT X}); z Identifier X is decremented by 1 


% and then the vatue of X is nassec 
% to crecedure PRCC_B. The extra 

% set of parentheses causes the 

% value to be passed to PROC_S 

% instead of the rame Xe 


Example Program: 
DECLARE NUMBER FIXEDs 
NUMBER 3= 115 


DO FOREVER? 
IF COECREMENT NUMBER) = 0 THEN STOPs 
DISPLAY CONVERT CNUMBER» CHARACTER); 
END> 


STOPs 
FINIs 


Z This example program uses the DECREMENT verb to decrement 
% a number by one and disptay the resuiting value of the 

Z numbere The program decrements and displays the number 

ZX ten times on the ODT and goes to end of job. 


Output from the Example Program: 


DECREMENTO =6501 +0000010 
DECREMENTO =6501 +0000009 
DECREMENTO =6501 +0000008 
DECREMENTO =65021 #0000007 
DECREMENTO =6501 +0000006 
DECREMENTOG =6501 #0000005 
DECREMENTO =6501 #0000004 
DECREMENTO =6501 #0000003 
DECREMENTO =6501 +0000002 
DECREMENTG =6501 #0000001 


NNRNNRNMN KRM NN 
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The DELIMITED__TOKEN verb scans the identifier that has <first-character-address> as its first 
character until one of the two delimiters specified by <delimiter> is encountered. The remaining por- 
tion of the identifier that begins with <first-character-address> is stored in <result-reference-identifi- 
er>. 


The delimiter characters used by the SDL compiler are the percent sign (%) and semicolon (;) charac- 
ters. 


SDL Syntax: 


—— DELIMITED_TOKEN ( <first-character-address> , <delimiters> , ——_—__£_—-—_______ 


>—————— < result-reference-identifier> ) 2. ____ 


Syntax Semantics: 


first-character-address 
This field can be any valid SDL identifier and specifies the address of the first character in the 
character string to be scanned. 


delimiters 
This field can be a character or bit string with a length equal to 16 bits. Each 8-bit byte specifies 
one of two delimiter tokens. 


result-reference-identifier 
This field can be any valid SDL reference identifier and specifies the name of the field in which 
to store the string of characters. 


Example: 
CECLARE FIRST _CHAF FEFERENCE» 2 The identifier 
RESULT REFERENCE» % RESULT_STRING is 
CHAF_ STRING CHARACTER C15 % assigned the vatue 
% 


> 
FESULT_STRING CHARACTER €15)3 
CHAR_STRING 3= "1L224567PS5FABCNENS 
REFER FIRST_CHAF 
TO SUBSTR CCHAR STRING» O» 1)3 
RESULT_STRIAG t= 
DELIMITEC_TCKEN CFIRST_CEAR® "3%", RESULT); 


of "123456789". 
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DELIMITED_ TOKEN 
Example Program: 
CECLARE ODT_INPUT CHARACTER (€50)>» 
RESULT REFERENCE» 


FIRST_CHARACTER REFERENCES 


DO FOREVER, 
DISPLAY C™"ENTER ANY SO*CHARACTERS TO BE SCANNED OR ENTER BYE FOR” 
CAT “ E0J")> 
ACCEPT ODT_INPUTs 
IF ODT_INPUT = “BYE" THEN DO> 
DISPLAY C"GOQD BYE™)s 
STOPs> 
END? 


REFER FIRST_CHARACTER TO SUBSTR CODT_INPUT» O» 1935 
DISPLAY C*"THE DELIMITED CHARACTERS FOLLOW™)s 


DISPLAY CDELIMITED_TOKEN CFIRST_CHARACTER» * Z%» RESULT) )> 


END» 
FINIs; 


This example program uses the DELIMITED_TOKEN verb to scan a 
character string that is accepted from the OOT. The delimiter 
characters used are the blank character and the percent sign (2) 
character.j If BYE is entered» the program goes to end of job. 


WRN HNN 
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DESCRIPTOR 


The DESCRIPTOR verb places a descriptor on the evaluation stack, which is the data descriptor of 
an identifier. The DESCRIPTOR verb can appear as the object of a replacement, thereby providing 
easy access to any part of a descriptor. 


A descriptor contains the data type, length, and base-relative address of <simple-identifier> or <ar- 
ray-identifier >. 


SDL Syntax: 


—— DESCRIPTOR ( ae <simple-identifier> )- 


<array-identifier> 


Syntax Semantics: 


simple-identifier 
This field can be any valid SDL identifier and specifies the field name to obtain the data descrip- 
tor information. 


array-identifier 
This field can be any valid SDL array identifier and specifies the array name needed to obtain 
the data descriptor information. 


Examples: 


SUBBIT CCESCRIPTOR (X)» Ge 2 ) = 23 % Assiqns the vatue 2 to 


Z the data tyne portion of 
% DESCRIPTOR CX). 


CESCHIPTCR (X) s= CESCERIPTCFR CY); % Forces both identifiers xX 
% and Y to describe the same 
% data namee Howeverer if X 
% and Y are not both simote 
Z% identifiers or arrays the 

2 results are incorrect. 
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DISABLE__INTERRUPTS 


The DISABLE__INTERRUPTS verb suppresses all interrupts until an ENABLE_INTERRUPTS verb 
is performed. 


This verb is for MCP use only and cannot be used by a program when the MCP is running. 


SDL Syntax: 


— DISABLE_INTERRUPTS ; i 


Example: 


DISABLE_IATERFUPTS, % Causes all interrupts to be surpressed. 
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DISPATCH 


The DISPATCH verb causes an input/output (I/O) operation to begin on the port and channel address 
specified by <port-and-channel>. It uses the I/O descriptor specified by <I/O-descriptor-address >. 
The DISPATCH verb is only used by the MCP or by a standalone SDL program that does not run 
with the MCP. If the DISPATCH verb is performed when the MCP is running, the MCP discontinues 
the program with the following program abort message: 


INVALID OPERATOR 


The DISPATCH verb returns one of the following three values. 


Value Description 
0 Dispatch register lock bit is set 
1 Successful dispatch 
2 Successful dispatch, but device is missing 


SDL Syntax: 


—— DISPATCH ( <port-and-channel>, < /O-descriptor-address> ) __——_ 


Syntax Semantics: 


port-and-channel 
This field can be any valid SDL literal, identifier, or expression that returns a binary value and 
specifies the port and channel address for the I/O operation. The rightmost seven bits of <port- 
and-channel> are used. The leftmost three bits are the port number and the rightmost four bits 
are the channel number. 


I/O-descriptor-address 
This field can be any valid SDL literal, identifier, or expression that returns a value and specifies 
the absolute address of the I/O descriptor. The rightmost 24 bits of <I/O-descriptor-address > 
are used. 
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DISPATCH 
Example: 
RECORD IO0_DESC 
ACTUAL_END BIT €24)>» 
RESULT_STATUS BIT €24)0 
oP BIT (€24)» 
A_ADDRESS BIT €24)» 
B_ADDRESS BIT €24)6 
C_ADDRESS BIT €24)8 
DECLARE OD [Q_DESC» 
RESULT BIT €24)»- 
BUFFER BIT €1440)>3 


DeRESULT_STATUS 3= OF 

D-OP 2*= 318000003 2 Read Operation 

De-A_ADDRESS <= DATA_ADDRESS C3UFFER)s 

DeB_ADDRESS *= DATA_ADDRESS CBUFFEK) + LENGTH CBUFFER)=s 
DeC_ADDRESS *= Q2O070E41ade xX Sector Address 


RESULT = DISPATCH CaCLILIL1L001a» DATA_ADDRESS CD~RESULT_STATUS))3 


% If RESULT = O» then dispatch register lock bit is set. 
Z If RESULT = I» then successful dispatch. 
%Z If RESULT = 2» then successful dispatches but missing device. 
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DISPLAY 
DISPLAY 


The DISPLAY verb causes the SDL/UPL program to write a message to the Operator Display Termi- 
nal (ODT). 


The following is the format of the output message that is written to the ODT. The (<usercode>) por- 
tion is optional. 


% (<usercode>) <program-name> = <program number> <message text> 


The displayed message is distinguished from the MCP-generated messages by the leading percent sign 
(%) character. 


SDL and UPL Syntax: 


—— DISPLAY ( <display-identifier> ) ee ; ————_| 
, CRUNCHED 


Syntax Semantics: 


display-identifier 
This field can be any valid SDL/UPL literal, identifier, or expression that returns an addressable 
value and specifies the value to be displayed on the ODT. 


CRUNCHED 
The keyword CRUNCHED deletes trailing blanks and substitutes one blank for each occurrence 
of multiple embedded blanks. 


Examples: 


NISPLAY "HI TREERE", %Z Disolays on the OOT the 
%Z message “HI THERE". 


CISPLAY CTPLEASE LOAD FORM *" CAT 
FORM NUPMEER)»® CRUACHECS 


% Disoltays on the ODT the 
%Z message "PLEASE LOAD 

% FORM * fotloned by the 
% value cf FCRM_NUMBER. 


DISPLAY CMESSAGE)> %Z Cisolays on the OOT the 
% value of MESSAGE. 
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DISPLAY 


Example Program: 


DECLARE YOUR CHARACTER (€5)» 
COMMA CHARACTER (€2)» 
ROW CHARACTER (€4)» 
BOAT CHARACTER (€5)> 


YOUR == * YOUR"; 
COMMA 2= %» “3 
ROW 2= * ROWS 
BOAT 3= * BOAT™s 


DISPLAY CROW CAT COMMA CAT ROW CAT COMMA CAT ROW CAT YOUR CAT BOAT)> 
DISPLAY C"GENTLY DOWN THE STREAM™)3 


STOP» 
FINIs 


% This example program uses the DISPLAY verb to display on the 
Z ODT the message “ROWe ROWe ROW YOUR BOAT GENTLY DOWN THE STREAM*. 


Output from Example Program: 


DISPLAYO =2467 BOJ.» PP=4» MP=4 TIME = 07°55212.3 
2 DISPLAYO =2467 ROW» ROW» ROW YOUR BOAT 

Z DISPLAYO =2467 GENTLY DOWN THE STREAM 
DISPLAYG =2467 EQJ. TIME = 07°55517.3 
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DISPLAY _BASE 
DISPLAY__BASE 


The DISPLAY__BASE verb stores, on the top of the evaluation stack, a 24-bit, self-relative value with 
a BIT data type that is the base-relative address of the base of the display stack. 


SDL Syntax: 


——~ DISPLAY _BASE a —_ 


Example: 


DECLARE BASE_ADDRESS BIT (243% % Identifier BASE_ADDRESS is assigned 
BASE_ADDRESS = DISPLAY_BASE>» % the value of the basewretative 
% address of the display stacke 


Example Program: 


DISPLAY ("THE ADDRESS OF THE DISPLAY STACK EQUALS ™ CAT 
CONVERT CDISPLAY_BASE» CHARACTER) )> 


STOPS 
FINIs 


Output from Example Program: 
DISPLAYO =5535 BOJ. PP=4» MP=4 TIME = 15217:54.2 


Z2 DISPLAYO =5535 THE ADDRESS OF THE DISPLAY STACK EQUALS 0027D0 
DISPLAYO =5535 EQJ- TIME = 15:517256.8 
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DUMP__FOR__ANALYSIS 

The DUMP__FOR__ANALYSIS verb causes the MCP to create a file known as the dumpfile. This 
dumpfile reflects the status of the program at the point at which the DUMP__FOR__ANALYSIS verb 
is performed. After the dumpfile is created, program execution continues with the statement immediate- 
ly following the DUMP__FOR__ANALYSIS verb. Refer to the B 1000 Systems System Software Oper- 
ation Guide, Volume 1, form number 1108966, for the syntax of the ‘‘PM’’ MCP command used to 
analyze and print the dump. 

After the dumpfile is created, enter one of the following commands to execute the DUMP/ANA- 
LYZER program. The DUMP/ANALYZER program generates a printer listing that shows the status 
of the program at the time the DUMP__FOR__ANALYSIS verb was performed. 


PM <dumpfile-id>; or EXECUTE DUMP/ANALYZER FILE DUMPFILE NAME <dunmpfile- 
id>; 


SDL and UPL Syntax: 


—— DUMP_FOR_ANALYSIS; a —_—___ 


Examples: 
DUMP» 
DUMP_FOR_ANALYSIS> 
Example Program: 
DISPLAY C"THIS PROGRAM CAUSES A DUMPFILE TO BE CREATED OF ITSELF")>s 
DUMP_FOR_ANALYSIS=z 


STOPS 
FINIs 


Z% This example program displays “THIS PROGRAM CAUSES A DUMPFILE 
% TO BE CREATED OF ITSELF" and goes to end of job. 


Output from Example Program: 


DUMPO =2640 BOJe PP=4e MP=4 TIME = 1522824021 

Z DUMPO =2640 THIS PROGRAM CAUSES A DUMPFILE TO BE CREATED OF ITSELF 
DUMPO =2640 “DUMPFILE/1237" 

DUMPO =2640 EQJ- TIME = 15228°46.5 
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DYNAMIC__MEMORY__BASE 


The DYNAMIC_MEMORY__BASE verb returns a 24-bit value that is the base-relative address in 
which the dynamic memory portion of the program begins. 


SDL and UPL Syntax: 


— DYNAMIC_MEMORY_BASE ——_—_ 


Example: 


CECLARE MEMCRY EITC24)> 
MEMORY 2= CYNAMIC_ PEMCRY_BASES The identifier MEMORY is 
assigned the address of the 
starting tocation of the 


orogram's dynamic memoryae 


wre xt x 


Example Program: 


DISPLAY ("THE DYNAMIC MEMORY FOR THIS PROGRAM BEGINS AT * 


CAT CONVERT CDYNAMIC_MEMORY_BASE» CHARACTER) )3 
STOPs 


FINIs 
Output from Example Program: 
DYNAMICO =2660 BOJ. PP=4» MP=4 TIME = 16218:°22.5 


% DYNAMICO =2660 THE DYNAMIC MEMORY FOR THIS PROGRAM BEGINS AT 003200 
DYNAMICO =2660 EQJ. TIME = 16218:224.9 
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ENABLE_ INTERRUPTS 


The ENABLE__INTERRUPTS verb causes the MCP to return to the normal interrupt-processing mode 
after a DISABLE__INTERRUPTS verb has been performed. 


This verb is for MCP use only and a program cannot use this verb when the MCP is running. 

SDL Syntax: 

—— ENABLE_INTERRUPTS; SSeS 
Example: 


ENABLE _ JNTERRUPTS? &% Causes the MCP to return to the normal 
Z interruot*orocessing modee 
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| ENTER_COROUTINE 
ENTER__COROUTINE 


The ENTER.__COROUTINE verb is used in conjunction with the EXIT_CCOROUTINE verb and 
causes the current code address to be placed on the program pointer stack. The number of entries 
specified in <coroutine-table> are placed onto the program pointer stack. The address of the next 
instruction is taken from the entry address specified in <coroutine-table>. 


When the ENTER__COROUTINE verb is performed for the first time, <coroutine-table> must al- 
ready be set up. This is accomplished by making the first executable statement in <coroutine-table > 
an EXIT_.COROUTINE statement. The first entrance to the coroutine is then accomplished by a pro- 
cedure call. 


The ENTER_-COROUTINE verb is not symmetric. The routine performing the ENTER_- 
COROUTINE verb is a master to the slave routine performing the EXIT_CCOROUTINE verb. 


SDL Syntax: 


— ENTER_COROUTINE (<coroutine-table>) ; + 


Syntax Semantics: 


coroutine-table 
This field can be any valid SDL table identifier and specifies a table with the following format. 


C1 CORCUTINE TABLE, 
O3 NUMEEF_OF_LENTFIES ETT €4)> 


03 ENTRY_ACODFESS EIT €32).6 
03 FPS_CGPY fit €32)>5 
Example: 
DECLARE | FIXEC> 


TAELE BITC44+174%72); 
PECCETURE SLAVE; 
EXIT_CCROUTINE CTABLE); % Sets uo table 
CC FCREVER; 
FUMP I BY 2% 
CISPLAY CDECIMAL CI> 6))3 
EXIT _CCRGUTIAE CTAELE)> X Resets table 
END? 
ENC SLAVE; 
PFCCECURE MASTER; 
SLAVE> % Call for table set uc 
Lt 83 
CO FUREVEFS 
EUMP I BY 33 
CISPLAY CDOECTIPAL CI> 6))5 
ENTER_CORCUTINE (TABLED-+ Z Uses table 
ENC; 
ENC MASTER; 
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ENTER COROUTINE 
The following is displayed if the example is performed. 


Occurrence Value of I 
Number Displayed 


1 000003 
2 000005 
3 000008 
4 000010 

Qn 5*n 


2n +1 5*n +3 
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ERROR_COMMUNICATE 


ERROR_COMMUNICATE 


The ERROR__COMMUNICATE verb causes the value of <error-message> to be put on the 
evaluation stack as a descriptor. The MCP error communication is then performed, and the program 
is discontinued. 


If the 6-bit identifier MCP_.NUMBER is equal to 29, the MCP uses the 16-bit identifier 
MESSAGE__LENGTH as the length of the message and the 24-bit identifier MESSAGE... ADDRESS 
as the base-relative address of the program abort message to be displayed on the ODT. If the 6-bit 
field MCP_.NUMBER is not equal to 29, the predefined MCP program abort message, represented 
by the MCP_NUMBER, is displayed on the ODT. 


SDL Syntax: 


—— ERROR_COMMUNICATE (<error-message> ) ; i 2 ——_______________| 


Syntax Semantics: 


error-message 
This field can be any valid SDL identifier or expression that returns a value and specifies either 
a predefined MCP program abort message or a program-defined, program abort message. 


The following is the format of <error-message>. 


O1 ERFCR_MESSACE> 
O02 FILLER BIT C2)» 
03 MCP_NUMEER CIT €6)» 
O03 MESSAGE _LENGTF 817 €165)> 
93 MESSAGE _ ADDRESS ELT €24)5 


The following are the predefined MCP program abort messages and their respective numbers. 


Error Program Abort 
Number Message 
1 PROGRAM POINTER/EVALUATION STACK OVERFLOW 


2 CONTROL STACK OVERFLOW 

3 NAME/VALUE STACK OVERFLOW 

4 REMAP AREA HAS INSUFFICIENT LENGTH 

5 INVALID PARAMETER (passed to a procedure) 

6 INVALID SUBSTRING (or SUBBIT) 

7 INVALID SUBSCRIPT 

8 INVALID RETURN (OF VALUE FROM PROCEDURE) 
9 INVALID CASE 

10 DIVIDE BY ZERO (could be in a MOD) 

11 INVALID INDEX 

12 MEMORY PARITY or READ OUT OF BOUNDS ON B1720 
13 INVALID OPERATOR 

14 INVALID PARAMETER TO VALUE DESCRIPTOR 

15 CONVERT ERROR 

16 STACK OVERFLOW 

17 UNINITIALIZED DATA ITEM 

18 ATTEMPTED TO WRITE OUT OF BOUNDS 

19 EXPONENT OVERFLOW 
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Error Program Abort 
Number Message 


20 EXPONENT UNDERFLOW 

21 EXPRESSION OUT OF RANGE 

we SUPERFLUOUS EXIT 

23 OUT OF MEMORY SPACE 

24 INVALID LINK 

22 TYPE ERROR 

26 INTEGER OVERFLOW 

27 MESSAGE TRANSFER DATA AREA IS NOT PRESENT 
28 MESSAGE TRANSFER INVALID DATA TEMPLATE 

29 (user supplied message) 

30 PARAMETER TO DYNAMIC DECLARATION OUT OF RANGE 
31 INVALID TRANSLATE 

32 INVALID SUBPROGRAM TYPE 

33 REFERENCE ASSIGNMENT LENGTH MISMATCH 


Example: 


ERRCR_CCPMUNICATE C20200000000008)5 % Causes the program abort 
% message CONTROL STACK 

% OVERFLOW to te disolayed 
x 


on the QOT. 


Example Program: 


DECLARE ODT_INPUT CHARACTER (50393 
DISPLAY C™"ENTER THE ERROR MESSAGE DESIRED OR ENTER BYE FOR EQJ™)> 
ACCEPT ODT_INPUTs 
If ODT_INPUT = “BYE” THEN DOs 
DISPLAY ("GOOD BYE™)s 
STOP? 
END; 


ERROR_COMMUNICATE CailDa CAT 201902 CAT DATA_ADDRESS CODT_INPUT))>s 


STOPS 
FINI 


Z This example program accepts the error message from the ODI and 
Z performs the ERROR _COMMUNICATE verb. The error message is 

2 included in the terminate message dispiayed on the ODT by the 

Z MCP. If BYE is entered» the program goes to end of job. 
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EVALUATION STACK_TOP 


EVALUATION__STACK__TOP 


The EVALUATION__STACK_TOP verb stores a 24-bit value on the top of the evaluation stack. This 
value is the base-relative address of the top of the evaluation stack before the verb is performed. 


SDL Syntax: 


—- EVALUATION_STACK_TOP AAA 


Example: 


Identifier TOP_OF_STACK is 
assigned the base address 

of the top of the evaluation 
stacke 


DECLARE TOP_LOF_ STACK BIT (24); 
TOPLOF_STACK 3= EVALUATION_STACK_TOPs 


HNN 


Example Program: 


DISPLAY C"THE ADDRESS OF THE TOP OF THE EVALUATION STACK EQUALS * 
CAT CONVERT CEVALUATION_STACK_TOPs» CHARACTER))>3 

STOPs 

FINIs 


Output from Example Program: 
EVALUATEO =5537 BOJ. PP=45 MP=4 TIME = 15219329.1 
% EVALUATEG =5537 THE ADDRESS OF THE TOP OF THE EVALUATION STACK 


EQUALS 002820 
EVALUATEO =5537 EOJ. TIME = 15219232.9 
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EXECUTE 


The EXECUTE verb causes the operation specified in the operation-list to be performed by the SDL 
interpreter. 


The EXECUTE verb is used only for the experimental design of new operation codes and results in 
the display of a BRANCH TO INVALID OP CODE program abort message on the ODT. The pro- 
gram is then discontinued. 


SDL Syntax: 


———~EXECUTE ae ae a a a ) ———_ —_____  —-—_+| 


Syntax Semantics: 


operation-list / 
This field can be any valid SDL identifier or expression. It specifies the operation code to be 
executed by the interpreter and the operands to be used by the interpreter. 


Example: 


CECLAFE A FIXEC» % Assiqns identifier C 
e FIXEC> % the result of the AND 
Cc BIT €24)3 % logicat operation that 

% is srecified by the 
z 


C s= EXECUTE CAo Ex» 2C1)911110000014a)5 EXECUTE vert. 
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EXIT COROUTINE 


EXIT_.COROUTINE 


The EXIT__COROUTINE verb is used in conjunction with the ENTER_-COROUTINE verb and 
causes the current nesting level to be stored in the number of entries specified in <coroutine-table>. 
The current code address is stored in the entry address specified in <coroutine-table>. The number 
of the entries that is specified in <coroutine-table>, on the top of the program pointer stack, is then 
copied to the program-pointer-stack-copy field (PPS__COPY) specified in <coroutine-table>. If the 
number of the entries is 0 (zero), then nothing is copied and an implicit UNDO statement is performed. 
The implicit UNDO statement uses the number of entries specified in <coroutine-table> as the num- 
ber of entries on top of the program pointer stack. 


The EXIT__COROUTINE verb can appear only within procedures that have no parameters and no 
local data, that is, those procedures which do not change the control stack. 


SDL Syntax: 
—— EXIT_COROUTINE (<coroutine-table>) ; -———— 
Syntax Semantics: 


coroutine-table 
This field can be any valid SDL table identifier and specifies the table with the following format. 


O1 CORCUTINE_TABLE» 
G3 DMUMBEB_CF_LEATRFIES BIT €4)> 


C3 ENTRFY_ACORESS BIT €32)>» 
Cs Pes. CCN BIT €32)3 
Example: 


For an example of the EXIT_.COROUTINE verb usage, refer to the ENTER__COROUTINE verb. 
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FETCH 


The FETCH verb causes the result of an input/output (I/O) operation to be returned to the SDL pro- 
gram. If there is a high-priority interrupt, then that interrupt is stored in <result-descriptor-address >. 
If there is no high-priority interrupt and <I/O-reference-address> is non-zero, only an interrupt on 
an I/O descriptor with a reference address equal to <I/O-reference-address> is stored in <result-de- 
scriptor-address >. <I/O-reference-address> is stored in the leftmost 24 bits of <result-descriptor-ad- 
dress>. If there are no interrupts, then zeros are stored in <IO-reference-address> and <result-de- 
scriptor-address >. 


The FETCH verb is for MCP use only or for an SDL program that is to run without the MCP. 
SDL Syntax: 


—— FETCH (<1/O-reference-address>> , <port-and-channel-address> , —————-——————-_--________— 


> <result-descriptor-address> ) | -—-—-—— | 


Syntax Semantics: 


I/O-reference-address 
This field can be any valid SDL identifier or expression that returns a 24-bit value and specifies 
the reference address of the I/O operation. 


port-and-channel-address 
This field can be any valid SDL literal, identifier, or expression that returns a 7-bit value and 
specifies the port and channel address. The first three bits specify the port address and the last 
four bits specify the channel address. 


result-descriptor-address 
This field can be any valid SDL identifier and specifies the destination field in which to store 
the result descriptor address for a high-priority interrupt. This field is zero if there was no high- 
priority interrupt. 


Example: 
CECLAFE IJIC_REF_ACCR BIT {(24)>» 
PGRT_CHAANEL_ ACER BIT €7)» 
FESULT_CESC_ACCE BIT €24)3 


IC_REF_ACCF t= 03 
PCRT_CRANNEL_ACCR t= 8€1)9010a CAT a€1)0000a5 


FETCH CIC_REF_ACOR» FCRT_CHANAEL_ADDR» RFESULT_DESC_ADOR)3 


DISPLAY C*®THE FOLLOWING RESULT CESCRIPTOR CNFORMATICON IS FOR PORT * 
CAT "2 AND CFANNEL OM Do 

CISPLAY C™TRE RESULT CESCRIPTOR ADDRESS IS ™ CAT 
CONVERT CRESULI_CESC_ACORe CHARACTER) ); 

CISPLAY C™THE I/C FEFEFENCE ADDRESS IS * CAT 
CONVERT CIC_LFEF_ACQCRe CRARACTER)); 

STOP; 

FINI; 
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FETCH__COMMUNICATE__MSG__PTR 


The FETCH._COMMUNICATE__MSG__PTR verb returns the RS__COMMUNICATE__MSG__PTR 
information if the RS__.MCP__BIT field is set. Otherwise, the RS__REINSTATE__MSG__PTR infor- 
mation is returned. 


SDL Syntax: 


— FETCH_COMMUNICATE_MSG_PTR | 


Example: 


CESCRIFTCR CCOMM_MSG) == 
VALUE_CESCRTFTLR CFETCH_ COMMUNICATE_MSG_PTRD3 


4 Identifier CCMM_ SC cdcescrites the communicate message» that is 


% assuming that the message was aescribed by 3 nonwselfrrelative 
% descrictcre 


1137833 9-77 


B 1000 Systems SDL/UPL Reference Manual 
Verbs 


FIND__DUPLICATE__CHARACTERS 


The FIND__DUPLICATE__CHARACTERS verb scans <reference-identifier-1 > for the first three or 
more contiguous characters that are identical. For example, the three characters AAA qualify as dupli- 
cate characters, while the two characters AA do not. The value of <reference-identifier-1 > is modified 
if duplicate characters are encountered. The new value has the same character string except this charac- 
ter string begins immediately after the first duplicate character. The value of <count-identifier> is 
the number of duplicate characters found. The value of <character-identifier > is the duplicate charac- 
ter found. The value of <reference-identifier-2> is the original character string of <reference-identifi- 
er-1 >, except this character string ends with the character immediately preceding the duplicate charac- 
ters. 


The FIND__DUPLICATE_.CHARACTERS verb is helpful in a data communications environment 
where it can be used to compact messages, especially when blank characters are common. 


SDL and UPL Syntax: 


—— FIND_DUPLICATE_CHARACTERS (<reference-identifier-1> , aR 
>————_ <count-identifier> , <character-identifier>, —_ 


>———- <reference-identifier-2> ) ; | 


Syntax Semantics: 


reference-identifier-1 
This field can be any valid SDL/UPL reference identifier and specifies the character string that 
is to be scanned. The value of this identifier is modified when the FIND__DUPLICATE_ 
CHARACTERS verb is performed. The new value of <reference-identifier-1 > is a character 
string that begins with the first character immediately following the duplicate characters that are 
found. 


count-identifier 
This field can be any valid SDL/UPL identifier with a FIXED data type. After the 
FIND__DUPLICATE__CHARACTER verb is performed, the value contained in <count-identifi- 
er> is the number of duplicate characters found. For example, if the value equaled + 0000007, 
the FIND__DUPLICATE__CHARACTERS verb found seven duplicate characters in the charac- 
ter string. 


character-identifier 
This field can be any valid SDL/UPL identifier, one byte in length, a CHARACTER data type. 
After the FIND__DUPLICATE_.CHARACTERS verb is performed, the value contained in 
<character-identifier > is the duplicate character found. For example, if the value equals the 
character A, the FIND_DUPLICATE__CHARACTER verb has found at least three consecutive 
characters equal to the character A. 


reference-identifier-2 
This field can be any valid SDL/UPL reference identifier. After the FIND _DUPLICATE__ 
CHARACTERS verb is performed, the value of <reference-identifier-2 > is the character string 
of <reference-identifier-1. It ends immediately prior to the first duplicate character string. 
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FIND DUPLICATE CHARACTERS 


Example: 


Consider the character strirg? "THIS IS THE PLAAAAACE* 
FIND CUPLICATE_CHARACTERS verb returrs the fcltlowing values: 
reference"identifiercl = "CE" 
count~identifier = #C0000C5 
charactervidentifier = "A" 
reference-identifiers2 = "THIS IS TKE PL" 


Example Program: 


DECLARE 
ACCEPT_FIELD CHARACTER C69)» 
REFERENCE_1 REFERENC Eo 
REFERENCE 2 REFERENC Eo 
COUNT FIXED» 


CHARACTER_FIELD CHARACTER C1)5 
DO FOREVERs 


DISPLAY C"ENTER A CHARACTER STRING OR ENTER BYE TO GO TO EDJ")>; 
ACCEPT ACCEPT_FIELD> 

IF ACCEPT_FIELD = “BYE™ THEN STOP; 

REFER REFERENCE 1 TO ACCEPT_FIELDs 


FIND_DUPLICATE_CHARACTERS CREF ERENCE_1»C QUNT»CHARACTER_FIELD» 
REF ERENCE_2)3 

DISPLAY C"THE RESULT OF REFERENCE_1 IS ™ CAT REFERENCE_1)3 
DISPLAY C"THE DUPLICATE CHARACTER IS * CAT CHARACTER_FIELD)3 
DISPLAY ("THE DUPLICATE CHARACTER APPEARS ™ CAT 

CONVERT €COUNT» CHARACTER) CAT 

" NUMBER OF TIMES™)3 
DISPLAY C"THE RESULT OF REFERENCE_2 IS * CAT REFERENCE_2)3 


ENDs 

FINI? , 

% This example program accepts a character string from the 

Z ODT and locates any duplicate characterse Using the 

% FIND _DUPLICATE_CHARACTERS verbe the values of identifiers 
% REFERENCE_1 and REFERENCE_2 are displayed. Also»e the 

% duplicate character and number of times that the duplicate 
% character appears ts displayed. Entering BYE terminates 

% the programe 
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FINI 
The FINI verb notifies the SDL/UPL compiler that this is the end of the source images to be compiled. 


The FINI verb is optional. If the FINI verb is not specified, the SDL/UPL compiler uses the end- 
of-file record in the source file as the end of the source images. 


SDL and UPL Syntax: 


4 


—— FINI 


Example: 


CECLAFE A CHARACTER (1); % The FINI verb tndicates the end of 

A s= TA"; % source fite te the SOL/UPL comoiler. 
DISPLAY C€A)?> 

STCP>; 

FINI; 


9-80 


B 1000 Systems SDL/UPL Reference Manual 
Verbs 


FREEZE PROGRAM 


FREEZE PROGRAM 


The FREEZE__PROGRAM verb prevents the program from being rolled out (moved to disk) during 
program execution. The MCP keeps the run structure of the program and saves space in the same 
memory location, regardless of the situation, until end of job or until the program performs the 


THAW__PROGRAM verb. 
SDL and UPL Syntax: 


—— FREEZE_PROGRAM; es 


Example: 


FREEZE_FROGRAMS 
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GROW 


The GROW verb causes the array bound of the specified paged array to be dynamically increased by 
the value of <increase-amount >. The value of <increase-amount> cannot be negative and the result- 
ing array bound cannot be larger than 16,777,215 (@(4)FFFFFF@) bytes. 

Paged arrays grow by adding more pages to the array. 


SDL and UPL Syntax: 


—— GROW (<paged-array-identifier> , <increase-amount> ) ; — 


Syntax Semantics: 


page-array-identifier 
This identifier can be any valid SDL/UPL paged array. 


increase-amount 
This field can be any valid SDL/UPL literal, identifier or expression that returns a 24-bit binary 
value and specifies the number of elements to be added to the paged array. 


Examples: 


GROW CAe 10)3 % Causes 10 elements to be added ta 
% the péged array A. 


GREW CH» CEUMP XK))>5 % Causes X #t 1 elemerts to be added to 
2% tre paeaed array &. 
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Verbs 
GROW 
Example Program: 
DECLARE PAGED €2) CHAR_ARRAY (1) CHARACTER C€ide 
INPUT_CHAR CHARACTER €1)>- 
COUNT FIXED» 
D_FIELD CHARACTER (€10)3 


D_FIELD 2= ""3 
COUNT := 03 
DO FOREVERS 
DISPLAY C"ENTER ONE CHARACTER OR ENTER BYE TO GO TO E0J™)3 
ACCEPT INPUT_CHARS 
IF INPUT_CHAR = "B™ OR CCBUMP COUNT) > 9) 
THEN DOS 
DISPLAY ("GOOD BYE*)3 
STOPS 
END? 


GROW CCHAR_ARRAYs 1)% % Causes one element to be added to the 
% paged array CHAR_ARRAY. 


CHAR_ARRAY (COUNT) 2= INPUT_CHAR> 
SUBSTR CD_FIELD»COUNT»1) 2= CHAR_ARRAY CCOUNT)3 
DISPLAY C°THE ARRAY EQUALS * CAT D_FIELD)3 


END=s 

FINI; 

2 This example program accepts a character from the ODT and 

2% causes the paged array to grow by one character to include the 
% character. The resulting paged array is displayed on the ODT. 
*® If more than 10 characters are entered» the program goes to 

% end of job. 
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HALT 


The HALT verb causes <halt-value> to be stored in the T-register and the M-machine halt instruction 
to be performed. The T-register can be examined on the console panel of the B 1000 computer system. 
The M-machine halt instruction stops the B 1000 processor. 


SDL Syntax: 


—— HALT (<halt-value>) ; i 


Syntax Semantics: 


halt-value 
This field can be any SDL literal, identifier, or expression and specifies the value to be loaded 
into the T-register. If <halt-value> is longer than 24 bits, only the leftmost 24 bits are stored. 
If <halt-value> is less than 24 bits, <halt-value> is stored in the T-register, right-justified with 


leading zeros. 


Example: 
CECLAFE xX BIT (24), 2% Causes the value 2000COAE to be stored 
X 8= 103 Z irtc the Trregister and the M-machine 
HALT (€X)>3 z halt instruction to be perfornred. 
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HASH_CODE 
HASH__CODE 


The HASH__CODE verb causes a 24-bit value to be returned. This value is computed from the length 
of the characters in <hash-code-value>. If the character string is longer than 15 characters, only the 
leftmost 15 characters are used. 


To be effective, the value returned by the HASH__CODE verb must be used with a number that is 
divisible by a prime number. The prime number determines the logical hash-table size. Furthermore, 
<hash-code-value> modulo a prime number is the most effective hash-table index. 


SDL and UPL Syntax: 


—— HASH_CODE (<hash-code-value> ) > 


Syntax Semantics: 


hash-code-value 
This field can be any valid SDL/UPL literal, identifier, or expression that returns a character 
value and specifies the value to be hashed. 


Examples: 
X s= KASE_CCHE CwsCHA CCE") vOD 135 % Fashes the lLiterat JQHN 
Z DODGE and assianrs the 
% resulting vatues rodulo 
% 13» to the identifier X. 
Y s= FASE _CCCE CCRARACTERS) ¥OD 295 % Hashes the icertifier 
% CHARACTERS arc assigns the 
%Z resulting value» modulo 
% 29» to idertifier Y. 
Example Program: 
DECLARE CHARACTERS CHARACTER (€15)>» 


HASH_RESULT BIT (243 


DO FOREVERS 
DISPLAY CENTER THE CHARACTERS TO BE HASHED OR ENTER BYE FOR EOJ")3 
ACCEPT CHARACTERSS 
IF CHARACTERS = "BYE" THEN DOS 
DISPLAY ("GOOD BYE")3 
STOPS 
END3 


HASH_RESULT 2= HASH _CODE CCHARAC TERS); 


DISPLAY C"°THE HASH RESULT IS * CAT CONVERTCHASH_ RESULT »CHARACTER) De 
END» 


FINTs 


% This example program accepts from the ODT up to 15 characters and 
% wses the HASH CODE verb on the accepted characters. The result of 
% hashing the characters is displayed on the ODT. 
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INITIALIZE_ VECTOR 
The INITIALIZE__VECTOR verb initializes the tables used by the SORT program. 
This verb is for SORT program use only. 


SDL Syntax: 


—— INITIALIZE_VECTOR (<table-address> ) ; Te 


Syntax Semantics: 


table-address 
This field can be any SDL literal, identifier, or expression that returns a 24-bit value and specifies 
the address of the table containing the vector addresses, the vector level-1 address, the key table 


address, and the vector limit address. 
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LAST_LIO_STATUS 


LAST_LIO_ STATUS 


The LAST__LIO_STATUS verb returns a bit value with a length equal to the RS_LAST__LI- 
O_STATUS__SIZE field in the run structure nucleus of the SDL program. This value represents the 
current status of logical input/output (I/O) operation for the SDL program. 


SDL Syntax: 


— LAST_LIO_STATUS 


| 


Example: 


DECLARE LAST_IO_STATUS BIT €24)3 
LAST_IO_LSTATUS 3= LAST_LIO_STATUSS 


Example Program: 
FILE PORTFILE CDEVICE = PORT» 


RECORDS = 80/1» 
HOSTNAME = “B1000")> 


RECORD 01 STATUS_MASK_EXCEPTION BIT (24)6 
02 ANY_EXCEPTION BIT (1)> 
02 FILLER BIT €4)» 
O02 INVALID_SUBPORT_INDEX BIT (1)» 
02 FILLER BIT (1)> 
02 I0_ERROR BIT C1)» 
02 FILLER BIT C1)» 
02 LOGICAL_EOF BIT (1)» 
02 FILLER BIT (1)> 
02 SUBPORT_STATE_CHANGE BIT (1)» 
02 FILLER BIT (€3)3 
DECLARE BUFFER CHARACTER (80)> 
x STATUS_MASK_EXCEPTION>» 
MASK BIT (24)3 % THIS IS THE RESULT MASK 


OPEN PORTFILE WITH INPUT» OUTPUTS 


MASK = @FFFFFFQs 2 REPORTS ALL EXCEPTIONS 


DO FOREVER? 
READ PORTFILE (BUFFER) WITH RESULT_MASK MASKs 
ON EXCEPTION DO> 
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LAST_LIO_STATUS 


DISPLAY “EXCEPTION ON READ OF PORTFILE™s 
X #8= LAST_LIO_STATUS* Z IDENTIFIER X CONTAINS 
Z ALL EXCEPTIONS WHICH 
Z OCCURRED. 
IF SUBBIT (X» 6» 1) = 1 
THEN DISPLAY "INVALID SUBPORT INDEX™3 
END>s 
WRITE PORTFILE CBUFFER)>; 
ON EXCEPTION DISPLAY "EXCEPTION ON WRITE OF PORTFILE*"s 
DISPLAY CBUFFER):; 


ENDs 

FINI; 

% This exampte program uses the LAST_LIO_STATUS verb to 

% assign ail the exceptions for a reésd operation to a BNA 

Z port fite. The program reads from the port file» writes 

% the same message back Cecho) to the port filer and displays 
% the message read/written on the ODT. 
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LENGTH 
LENGTH 


The LENGTH verb returns a 24-bit value, which contains the number of units in <identifier >, where 
unit is either of the following: 


1. The number of characters if <identifier> has a data type of CHARACTER. 
2. The numbers of bits if <identifier> has a data type of FIXED or BIT. 


SDL and UPL Syntax: 


——— LENGTH (<identifier> ) 


Syntax Semantics: 


identifier 
This field can be any valid SDL/UPL identifier or expression that returns an addressable value. 


Examples: 


X 3= LENGTH ("23"); % The identifier X is assigned a 24-bit 
% value eaual te 2 or alC4dCCCCO02Za. 


X s= LENGTH CY);, % The identifier X is assigned a 24-bit 
% vatue eaouasl te the length of Y. 
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Verbs 
LENGTH 
Example Program: 
DECLARE CHARACTERS CHARACTER €1950)>» 
LENGTH_OF_ CHARACTERS BIT C24)» 
COUNTER FIXEDs 


DO FOREVERs 
DISPLAY C™ENTER ANY NUMBER OF CHARACTERS OR ENTER BYE FOR E0J%)3 


ACCEPT CHARACTERS? 
COUNTER 2= 03 
DO CHARACTER_LOOP FOREVER?3 
IF SUBSTR CCHARACTERS» COUNTER» 1) = * ™ OR COUNTER > 1948 
THEN If SUBSTR CCHARACTERS» O» COUNTER) = "BYE" 
THEN DOs 
DISPLAY ("GOOD BYE")3 
sToP? 
END; 
ELSE DOs 
LENGTH_OF_CHARACTERS 3= 
LENGTH CSUBSIR CCHARACTERS» O» COUNTER) )3 
DISPLAY C™THE LENGTH OF THE CHARACTERS ENTERED IS * 
CAT DECIMAL CLENGTH_OF __CHARACTERS» 8))3 
UNDO CHARACTER_LOOPs 
END? 
BUMP COUNTERS 
END CHARACTER_LOOPS 
ENDs 


FINI; 


% This example program accepts a character field from the ODT 
2% and uses the LENGTH verb to calcuiate the number of characters 
Z entered. If “BYE” is entered the program goes to end of job. 
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LIMIT REGISTER 
LIMIT__REGISTER 


The LIMIT__REGISTER verb returns a 24-bit value which is the base-relative address of the Run 
Structure Nucleus for the program. 


SDL and UPL Syntax: 


— LIMIT _ REGISTER $$ 


Example: 


DECLARE X BIT C€24)s5 
X = LIMIT_REGISTERs % Assigns to identifier X a 24=bit value 
% which represents the Limit register of 
% the run structure nucleus in the program. 


Example Program: 


DISPLAY C"THE ADDRESS OF THE RUN STRUCTURE NUCLEUS IN THIS PROGRAM IS ” 
CAT DECIMAL CLIMIT_REGISTER» 8))>s 

STOP; 

FINI; 


2% This example program displays on the ODT the base~relative address 
Z of the program*s run structure nucleus and goes to end of job. 
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The LOCATION verb returns a bit value that is the base-relative address of the specified identifier, 
atray-identifier, or procedure-identifier. 


When a procedure-identifier is specified, a 36-bit value is returned. This 36-bit value contains, as the 
first four bits, the address type which is equal to @F@ or @(1)1111@. This value designates that this 
36-bit value applies to a procedure identifier. Also, included in this 36-bit value is the page, segment, 
and displacement of the specified procedure. 


The following is the format of the 36-bit value for a procedure identifier. 


Cl PRCCELCURE_ACDRESS EIT €36)- 


03 ACURESS_TYPE ElT €4)»% % Contains the vatue aFé 
93 SEGMENT _ NUMBER EIT CE)» 

03 PACE_NUMEEF EIT (€6)> 

03 CISPLACEMENT EIT €20)> 


When an identifier or array-identifier is specified, a 16-bit value is returned. The first two bits of this 
field is the address type and equals @(1)00@ or @(2)0@. This 2-bit value designates that the remaining 
16-bit value represents an identifier or an array. The remaining information includes the lexic level and 
the occurrence number within the lexic level for the identifier or array. 


The following is the format of the 16-bit value. 


G1 TCENTIFIEF_CR_ARRAY_ADDRESS BIT C16)» 


C2 ACOFESS_TYPE AIT €2)» % Contains the vatue 2(2)C; 
O03 LEXIC_LEVEL BIT C4)» 
03 CCCURRENCE_NUMEER 817 €10)3 


SDL and UPL Syntax: 


—— LOCATION ( <identifie> ——————__ ) ——_—_—_—__+ 
- < array-identifier> ———— 
< procedure-identifier> ~————— 
Syntax Semantics: 


identifier 
This identifier can be any valid SDL/UPL identifier. 


array-identifier 
This array identifier can be any valid SDL/UPL array identifier. 


procedure-identifier 
This procedure identifier can be any valid SDL/UPL procedure identifier. This procedure must 
be declared as a FORWARD procedure if a recompilation or create-master compilation is to be 
performed. 
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LOCATION 
Examples: 
CECLAFE x EIT (16)> 
Y EIT €36)>» 
ICENTIFIER CKHARPCTEB CLO)> 
AFF AY (20) FIT (24)3 
X 3= LOCATICN CICEATIF IEF); % Assigns to identifier X a 16“bit 
% vatue with @€1)004 as the first 
% two bits» followed by a 4-bit 
%Z lexicttevel number equal to 
4 @€1)000CaG and a 10"btit occurrence 
% number eaquat to aC(1)QQQQ00001Ng. 


X 3= LCCATICN CARKRAY); Assiaqns to identifier X a 16*bit 
value with ¢«€1)00 as the first 
two bits» fottowed ty a 44-bit 
lexicvwtevel number equal to 
a@CL)IGO00d ard a 1O“bit occurrence 


number ecual to acL1ycaccecagngdite. 


wn rt nw a 


~ 


Y s= LCCATICN CPRCCECURE_ONE)> Assigrs to identifier Y a 36~bit 
value with ofa as the first four 
bits» followed by a O67*bit segment 
numbers», a @=bit page number and a 
20-bit disclacement number of 
procedure PROCECURE_ONE. 


AN BE TL HE BE BE 


Example Program: 
SEGMENT CZERO)> 
PROCEDURE DISPLAY_ARRAY_AND_FIELDs 


DECLARE 01 LOC_OF_ARRAY_OR_FIELD BIT (16)-6 


03 ADDRESS_TYPE_AF BIT C2)» 

03 LEXIC_LEVEL BIT €4)>» 

03 OCCURRENCE _NUMBER BIT €10)» 
ARRAY (€10) CHARACTER (€10)» 
FIELD FIXEDs 


LOCLOF_ARRAY_OR_FIELD <= LOCATION CARRAY)> 


DISPLAY ("THE ADDRESS TYPE OF THE ARRAY IS * CAT 
CONVERT CADDRESS_TYPE_ AF» CHARACTER))> 

DISPLAY ("THE LEXIC LEVEL GF THE ARRAY IS ™ CAT 
CONVERT CLEXTC_LEVEL» CHARACTER))> 

DISPLAY C™THE OCCURRENCE NUMBER OF THE ARRAY IS ™ CAT 
CONVERT COCCURRENCE_NUMBER» CHARACTER))3 


LOC_OF_ARRAY_OR_FIELD = LOCATION CFIELD)s 
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DISPLAY C®THE ADDRESS TYPE OF FIELD IS ™ CAT 
CONVERT CADDRESS_TYPE_AF» CHARACTER))3 

DISPLAY C*THE LEXIC LEVEL OF FIELD IS * CAT 
CONVERT CLEXIC_LEVEL» CHARACTER))3 

DISPLAY C"THE OCCURRENCE NUMBER CF FIELD IS ™ CAT 
CONVERT COCCURRENCE_NUMBER» CHARACTER))3 


END DE SPLAY_ARRAY_AND_FIELD=; 


% 

SEGMENT CONE); 

z 

PROCEDURE DISPLAY_PROCEDURES 

DECLARE 01 LOC_OF_PROCEDURE BIT (€36)>» 

03 ADDRESS_TYPE_P BIT €4)» 
03 SEGMENT_NUMBER BIT (6)>» 
03 PAGE_NUNBER BIT (6)> 


03 DISPLACEMENT _NUMBER BIT (20) 
LOC_OF_PROCEDURE *= LOCATION CDISPLAY_PROCEDURE)=; 


DISPLAY ("THE ADDRESS TYPE OF DISPLAY_PROCEDURE IS * CAT 
CONVERT CADDRESS_TYPE_P» CHARACTER ))5 

DISPLAY ("THE SEGMENT NUMBER OF DISPLAY_PROCEDURE IS ™ CAT 
CONVERT CSEGMENT_NUMBER» CHARACTER ))5 

DISPLAY C"THE PAGE NUMBER OF DISPLAY_PROCEDURE IS * CAT 
CONVERT CPAGE NUMBER» CHARACTER) )> 

DISPLAY C"THE DISPLACEMENT OF DISPLAY_PROCEDURE IS ™ CAT 
CONVERT CDOISPLACEMENT_NUMBER» CHARACTER) )s 


END DISPLAY_PROCEDURES 

7 MAIN PROGRAM BEGINS HERE 
ee CTHWO)s 
DISPLAY_ARRAY_AND_FIELDS 
DISPLAY_PROCEOURES 

STOPS 

SEGMENT CZERO)3 

FENIS 


% This example program dispitays the location of ARRAY» FIELD» 
% and DISPLAY_PROCEDURE and goes to end of job. 
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Output from Example Program: 


LOCATIONO =7523 BOJ. 


Z LOCATIONO 
X LOCATIONO 
Z% LOCATIONO 


LOCATIONO 
LOCATIQNO 
LOCATIONO 


LOCATIONO 
LOCATIONO 
LOCATIUONO 
LOCATIONDO 


fn NM RM NNR 
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=7523 
=7523 


=7523 


=7523 


=7523 


=7523 


=7523 


=7523 


=7523 © 


=7523 


THE 
THE 


THE 


GCATIONG =7523 EDJS~ 


Verbs 
LOCATION 


PP=4> MP=4 TIME = 1520321067 


ADDRESS TYPE OF THE ARRAY IS 0 
LEKIC LEVEL OF THE ARRAY IS 1 
QCCURRENCE NUMBER OF THE ARRAY IS 006 


ADDRESS TYPE OF FIELD IS 0 
LEXIC LEVEL OF FIELD 15 1 
OCCURRENCE NUMBER OF FIELD [5S 007 


ADDRESS TYPE OF DISPLAY_PROCEDURE IS F 
SEGMENT NUMEER OF DISPLAY_PROCEDURE IS 02 


- PAGE NUMBER OF DISPLAY_PROCEDURE IS 00 


DISPLACEMENT OF DISPLAY_PROCEDURE IS 00000 


TIME = 15203°333.1 
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MAKE__DESCRIPTOR 


The MAKE__DESCRIPTOR verb replaces the current entry on the evaluation stack with <descrip- 
tor>. If the name-value bit of <descriptor> on the evaluation stack is set, the value of <descriptor > 
is removed from the value stack. 


The DESCRIPTOR verb can appear as the object of a replacement, as long as the descriptor created 
generates an address. 


SDL Syntax: 


——~ MAKE_DESCRIPTOR (<descriptor> ) -——_ 


Syntax Semantics: 


descriptor 
This field can be any valid SDL expression that returns a descriptor. 


Examples: 


MAKE CESCRIPTCR CCESCRIPTOR (X)) = X» 
where X 1s nonwselfrreltative. 


MAKE CESCRIPTOR CVALUE_CESCRIPTOR CE)) = E>» 
where E generates ar addresSe 


VALUE_CDESChIPTOR CPAKE_CESCFIPTOR CE)) t= Ee 
where the value of E is a valid address qenerator. 
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MAKE__READ__ONLY 


The MAKE__READ__ONLY verb applies only to paged arrays and marks the specified page number 
of a paged array as READ__ONLY. All pages within a paged array are marked as READ__WRITE 
by default. Once a page is marked as READ__ONLY, that page is not copied to disk each time it 
is overlaid by the MCP. The programmer is responsible for insuring that information written to a page, 
within a paged array, be performed when the page is not marked READ__ONLY. Refer to the 
MAKE__READ__WRITE verb to mark a paged array as READ__WRITE. 


The programmer must calculate <page-number>, and also must ensure that <page-number > is a val- 
id page number. No syntax checking is performed on the value used to reference a page number within 
a paged array. 


SDL and UPL Syntax: 


— MAKE_READ_ONLY (<paged-array-identifier>) , <page-number> ) ; ——_ 


Syntax Semantics: 

paged-array-identifier 
This field can be any valid SDL/UPL paged-array identifier and specifies the paged array to be 
marked as READ__ONLY. 

page-number 
This field can be any valid SDL/UPL integer, identifier, or expression that returns a 24-bit binary 
value and specifies the page number within a paged array. 


Examples: 


CECLARE PAGEL €32) P €1024) BIT C30), 
[ FIXED; 


MAKE FEAC_CALY (Po 1); % Makes page rumber one of the paqed 
% array P a FEAD_ONLY page. 


MAKE FEAC_OALY (PP. 1); % Makes the page rumber specified by the 
2 vatue cf I a READ_CANLY raqe. 


MAKE FEAC_GNLY CP» BUMF J)5 % Makes the cage number specified by 
za the value cf 1 #1 a REAC_ONLY nage. 


Example Program: 


DECLARE PAGED €2) P (32) FIXED» 
i FIXED» 
ODT_INPUT CHARACTER €5)2 


DO FOREVER? 
MAKE_READ_ONLY (P» BUMP 1)3 
If I = 15 THEN UNDOS 

ENDS 
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DO FOREVERS 
DISPLAY C"ENTER READ» ENTER WRITE» GR ENTER BYE TO GO TO EOJ"™)s 
ACCEPT ODT_INPUTs 
IF OOT_LINPUT = "BYE" THEN STOP> 
If ODT_INPUT = *READ® 
THEN DOs 
DISPLAY C*"ENTER AN ELEMENT NUMBER BETWEEN O AND 31); 
ACCEPT ODT_INPUT>s 
I := CONVERT CODT_INPUT» FIXED)>s 
IF I > 31 
THEN DISPLAY C™NUMBER ENTERED IS TOO LARGE"); 
ELSE DISPLAY (DECIMAL CP CI)» 8))3 
END> 
ELSE IF ODT_INPUT = "WRITE” 
THEN O03 
DISPLAY C"ENTER AN ELEMENT NUMBER BETWEEN O AND 31%)5 
ACCEPT ODT_INPUTs 
I s= CONVERT CODT_INPUT» FIXED)=» 
If i > 32 
THEN DISPLAY C™NUMBER ENTERED [S TOO LARGE"); 
ELSE DOs 
DISPLAY C"ENTER A NUMBER™)> 
MAKE_READ_WRITE CP» I/2)> 
ACCEPT ODT_INPUT> 
P €1) = CONVERT CODT_INPUT»FIXED)> 
MAKE_READ_OALY (P» I/2)3 
END» 
ENO> 
ELSE DISPLAY C*INCORRECT COMMAND -- TRY READ» WRITE> OR BYE™)3 
END>s 


STOP; 
FINI>s 


‘This exampie program illustrates the use of the MAKE_READ_ONLY 
and MAKE_READ_LWRITE verbs on paged arrays» The program first 
accepts from the GODT the entries “°READ"» “"WRITE*» or “BYE". If 
"BYE" is entered the program goes to end of jobe If “READ” jis 
enterede the program then accepts from the ODT an element number 
between 0 and 31 and displays the contents of that element in 
the array» If "WRITE" is entered» the program accepts from the 
ODOT the element number between O and 31 and then a S-character 
vatue to be placed into that element within the paged array» 


The MAKE_READ_ONLY verb itis used to initiaily make atl the pages 
in the paged array READ_ONLY and» aiso» after an element in the 
paged array has been changede The MAKE_READ_WRITE verb is used 
to make an element in the paged array READ_WRITE in order to 
change the vatue of the elemente 


NRANMHRNR MH NH MMM HM NH 
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MAKE_READ_WRITE 


MAKE__READ__WRITE 


The MAKE__READ__WRITE verb changes the status of the page within a paged array specified by 
<page-number> to READ__WRITE. If the status of a page is READ__WRITE, the page is copied 
to disk each time it is overlaid by the MCP. 


The user must calculate <page-number>, and also must ensure that <page-number> is valid. No 
syntax checking is performed by the SDL/UPL compiler to verify that <page-number> is valid. 


Unless a page has been marked as READ__ONLY by the MAKE__READ__ONLY verb, a status of 
READ__WRITE is the default for all pages within a paged array. The MAKE__READ__ WRITE verb 
is only needed to override READ__ONLY status set by the MAKE __READ__ONLY verb. 


SDL and UPL Syntax: 


—— MAKE_READ_WRITE (<paged-array-identifier> , <page-number> ) ; ————____—__——__ 


Syntax Semantics: 


paged-array-identifier 
This field can be any valid SDL/UPL paged-array identifier and specifies the paged array to be 
marked as READ__WRITE. 


page-number 
This field can be any valid SDL/UPL integer, identifier, or expression that returns a 24-bit binary 
number and specifies the page within a paged array. 


Examples: 


DECLARE PAGEC (32) P C1024) EIT (€30)- 
i FIXtCs 


xe 


Makes paqe number 1 of the paged 
% arrav P a SEAGD_ONLY page. 


MAKE_FEAL_WRITE (P>» 1)3 


MAKE_FEAL_WRITE CF» 1)5 % Makes the page number specified by 
%Z the value cf I a READ_ONLY cagee 


MAKE _REACL_WRATE CF» SUMP T)s % Makes the page number specified by 
% the vatue cf I + 1 a READ_LOALY page. 


Example Program: 


Refer to the Example Program for the MAKE READ ONLY verb. 
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The MESSAGE__COUNT verb scans the specified queue file and determines the number of messages 
currently in the queue. This number is stored in <identifier> with a FIXED data type. 


When the queue file specified is a queue file family, the MESSAGE__COUNT verb returns an array 
of FIXED values, one for each file in the family. The programmer must ensure that <identifier> is 
large enough to hold the generated value. 


SDL and UPL Syntax: 


——- MESSAGE_COUNT (<queue-file-id>, <<identifier> ) : SUEEEEEEEEEEEEEEEEEEEREEEEEEEREEEEEEEEEEEEEEEREEEEEEE 


Syntax Semantics: 


queue-file-id 
This field can be any valid SDL/UPL file identifier declared with a device type equal to QUEUE 
and specifies the queue file name to obtain the message count. 


identifier 
This field can be any valid SDL/UPL identifier and specifies the destination field for the number 
of messages. 


Examples: 


(5S) FIXEC> 


DECLARE xX 
Y FIXES 


FILE GUEUE_LFILE C(CEVICE=CUEUE)>» 
GUEUE_FAMILY_5 CLCEVICE = QUEUE (5));3 


MESSAGE _CCUNT CGUELE_ FILE» Y)>; z Stores the number of messages 
% oueued for wWlEUE_FILE into 
Z identifier Ye 


% Stores the number of messages 
% cqueued for each file within 

% the QUEUE_FAMILY_5 into array 
Z Xe 


MESSAGE_CCUAT CQUELE_FAMILY_ 5» X)3 
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Example Program: 


DECLARE NUMBER_OF_MESSAGES FIXED» 
COUNTER FIXEDs 


FILE QUEUE CDEVICE = QUEUE (10)» 
OPEN_OPTION = OUTPUT» 
RECORDS = 10> 
BUFFERS = 2); 


COUNTER = 03 
DO FOREVER? 
WRITE QUEUE CCOUNTER); 


MESSAGE COUNT CQUEUVUE» NUMBER_OF_MESSAGES)3s 


DISPLAY C"FHE NUMBER GF MESSAGES QUEVED EQUALS * CAT 
CONVERT CNUMBER_OF_MESSAGES» CHARACTER) )3 
IF CCBUMP COUNTER) > 9) THEN DOS 
DISPLAY ("GOOD BYE")s 


STOPs 

ENDs 
END> 
FINI> 
ZX This example program writes a message to the file labeled QUEUE 
X and uses the MESSAGE_COUNT verb to interrogate the number of 
Z% messages in the queue filee fhe number of messages is displayed 
% on the ODT. 


Output from Example Program: 


MESSAGEO =7076 BOJse PP=4e MP=4 TIME = 08221°15.2 

X MESSAGEO =7076 THE NUMBER OF MESSAGES QUEUED EQUALS +0000001 
% MESSAGEO =7076 THE NUMBER OF MESSAGES QUEVED EQUALS 40000002 
% MESSAGEO =7076 THE NUMBER OF MESSAGES QUEVED EQUALS +*#0000003 
% MESSAGEO =7076 THE NUMBER OF MESSAGES QUEVED EQUALS +0000004 
% MESSAGEO =7076 THE NUMBER OF MESSAGES QUEVED EQUALS +0000005 
ZX MESSAGEO =7076 THE NUMBER OF MESSAGES QUEVED EQUALS #0000006 
z 
z 
y 5 
Z 
y 
M 


ili 


MESSAGEO =7076 THE NUMBER OF MESSAGES QUEUED EQUALS +0000007 
MESSAGEO =7076 THE NUMBER OF MESSAGES QUEVED EQUALS +0000008 
MESSAGEG =7076 THE NUMBER OF MESSAGES QUEVED EQUALS #0000009 
MESSAGEO =7076 THE NUMBER OF MESSAGES QUEUED EQUALS +0000010 
MESSAGEO =7076 GOOD BYE 
ESSAGEO =7076 EQJe FIME = 0822123625 
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MONITOR 
The MONITOR verb specifies which procedures are candidates to be monitored. 


SDL Syntax: 


$ALL — — 


$NONE ~ 


— MONITOR 


<sequence-range> 


<procedure-name> 


Syntax Semantics: 


AND NOT 
The keywords AND NOT cause the sequence numbers specified by <sequence-range> or the 
procedures specified by <procedure-name> not to be monitored. 


OR 
The keyword OR causes the sequence numbers specified by <sequence-range> or the procedures 
specified by <procedure-name> to be monitored. 


The key symbol + causes the sequence numbers specified by <sequence-range> or the proce- 
dures specified by <procedure-name> to be monitored. 


The key symbol — causes the sequence numbers specified by <sequence-range> or the proce- 
dures specified by <procedure-name> not to be monitored. 


The keysymbol , causes the sequence numbers specified by <sequence-range> or the procedures 
specified by <procedure-name> to be monitored. : 


$ALL 
The keyword $ALL causes all of the procedures to be monitored. 


$NONE 
The keyword $NONE causes no procedures to be monitored. 


sequence-range 
This field can be any sequence range of sequence numbers within the SDL/UPL source file. It 
specifies the sequence range for monitoring a designated procedure. The following is the format 
for <sequence-range>, where bbbbbbbb specifies the beginning sequence number and eeeeeceece 
specifies the ending sequence number. 


bbbbbbbb-eeeeeeee 


procedure-name 
This field can be any procedure identifier within the SDL/UPL program that is marked to be 
monitored and specifies that this procedure is to be monitored. 
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MONITOR 
Example |: 
MONTTCR CU"EFALL");5 4 Causes all crocedtures that are 
% candidates for monitering tec be 
4 monytoreda. 
Example 2: 
WCNITCR C™ShONE"™)> % Causes no orccedures to te 
%Z monitcrede 
Example 3: 
MCNITCR C"X1y X2%);5 % Causes procedtres X¥1 and X2 toa be 
2 monitored. 
Example 4: 


MCNITCR C"CCOOCROC*019SSS995")s % Causes all crocedures hetween 
% searerce nuasters OCQ00000 and 
% 01999999 to Fe monitored. 


Example 5: 


MONITCR C"™X1 AND ACT X2")3 % Causes procedure X1 to be monitored 
% but net ecrocedure XZ. 


Example Program: 


DECLARE ODT_INPUT CHARACTER (€3)2 
& MONITOR 
PROCEDURE COUNTs 
DECLARE COUNT FIXED» 
DISPLAY CCONVERT CCBUMP COUNT)» CHARACTER)); 
END COUNTs 


DO FOREVERs 
DISPLAY C"ENTER YES TG MONITOR PROCEDURE AGAIN OR ENTER BYE FOR E0J"); 
ACCEPT ODT_INPUT> 
IF ODT_LINPUT = “BYE” THEN DOs 

DISPLAY ("GOOD BYE"); 

STOPs 

END= 
IF ODTLINPUT = “YES" THEN MONITOR_SET C"COUNT™)> 
ELSE MONITOR_RESET C"COUNT"™)>5 


COUNT> 


END> 
FINI; 
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M__MEM__SIZE 


The M_.MEM__SIZE verb returns a 24-bit value which is the M-memory size in bits, of the B 1720 
computer system. 


The M_MEM__SIZE verb is only valid for the B 1720 series computer. 


SDL and UPL Syntax: 
—— M_MEM_SIZE ee 


Example: 


DECLARE MEMORY BIT (€24)% Z Identifier MEMORY is assigned the 
MEMORY 2= M_MEM_SIZE> % vadue of the memory size of the B1720 
ZX computer systeme 


Example Program: 


DISPLAY C"THE M@MEMORY SIZE EQUALS a” CAT 
CONVERT CCOM_MEM_SIZE / 8&3» CHARACTER) CAT “2 BYTES” )s 


STOPs 
FINIs 


Output from Example Program: 


M_MEM_SIZO =6234 BOS» PP=4e MP=4 TIME = 10237211.4 
Z M_MEM_SIZO =6234 THE M“MEMORY SIZE EQUALS 920060002 BYTES 
M_MEM_SIZO =6234 EQJe TIME = 1023751627 
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NAME_OF_DAY 
NAME__OF__DAY 


The NAME__OF__DAY verb returns a left-justified, 9-character string which is the name of the cur- 
rent system day of the week. The seven possible values are MONDAY, TUESDAY, WEDNESDAY, 
THURSDAY, FRIDAY, SATURDAY, and SUNDAY. 


SDL and UPL Syntax: 


aaa NAME ORDA cae ee ey 


Example: 


DECLARE NAME CHARACTER (€9)3 
NAME 2= NAME_OF_DAY3 


If the current system day name is WEDNESDAY» then 
NAME has the following bit and hexadecimal values. 


aC 4 E6CSCADSC4E2C4C1EBA 
"WEDNESDAY" : 


NAME 


“il 


mM NM HE PE 


Example Program: 


DISPLAY ("TODAYS DAY NAME IS * CAT NAME_OF_DAY);3 
STOPS 
FINI, 


Output from Example Program: 


NAMEQFDAYG =5598 BOJe PP=4» MP=4 TIME = 0820024529 
% NAMEOFDAYO =5598 TODAYS DAY NAME [S FRIDAY 
NAMEOFDAYO =55986 EOJo TIME = 0620025025 
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NAME_STACK__TOP 


The NAME__STACK__TOP verb returns a 24-bit, self-relative value with a BIT data type. This 24-bit 
value is the base-relative address of the top of the name stack. 


SDL Syntax: 


— NAME_STACK_TOP SH 


Example: 


DECLARE NAME_STACK_ADDR BIT (24)5 % Identifier NAME_STACK_ADDR 
NAME _STACK_ADDR *= NAME_STACK_TOPs % 1s assigned the address of 
% the top of the name stacke 


Example Program: 


DISPLAY C"THE ADDRESS OF YHE TOP CF THE NAME STACK EQUALS * CAT 
CONVERT CNAME_STACK_TOP» CHARACTER))>3 

STOPs 

FINIs 


Output from Example Program: 


NAMESTACKO =560!1 BOJe PP=%» MP=4 TIME = 0820924728 


Z% NAMESTACKO =5601 THE ADDRESS OF THE TOP OF THE NAME STACK 
EQUALS 0027D0 
NAMESTACKO =5601 EQJ. TIME = 08:205°51.8 
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NEXT_ITEM 


NEXT_ITEM 


The NEXT__ITEM verb causes the length field of the descriptor, represented by <identifier>, to be 
added to the address field of that descriptor. This modified descriptor is put back onto the name stack 
and is also moved to the top of the evaluation stack. This modified descriptor is the load address of 


the new item described by <identifier>. 


SDL Syntax: 


—- NEXT_ITEM (<identifier>) | 


Syntax Semantics: 


identifier / 
This field can be any valid SDL simple identifier and specifies the name of the starting identifier. 


Example: 


Causes the character [ 
to be moved into the 
second character of 
CHAR_STRING. 


CECLARE 01 CHAR_STFING CHARACTER (1000)> 
03 NEXT_CHAR CHARACTER (1)3 
NEXTLITEY CNEXT_CKAR) t= "DT 


nenvenrwnr 
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NEXT__TOKEN 


The NEXT__TOKEN verb returns the descriptor of the next token. This token can be an identifier, 
a number, or a special character. The descriptor of <result-reference-identifier> is also replaced by 
this descriptor. <first-character-address:> is changed to point to the character which immediately fol- 
lows this token. The NEXT__TOKEN verb expects that the <first-character-address> references a 
nonblank character. 


SDL Syntax: 


—— NEXT_TOKEN (< first-character-address> , <separator> es SET —k 
RESET 
>————— + <result-reference-identifier> ) > 


Syntax Semantics: 


first-character-address 
This field can be any valid SDL identifier and specifies the address of the first character in the 
character string to be scanned. 


separator 
This field can be a character string or a bit string with a length equal to eight bits and specifies 
the token separator. The SDL compiler uses the underscore (_.) character. If no token separator 
is required, specify the character A. 


SET 
The keyword SET allows the symbols 0 through 9 to be valid symbols. For example, the symbols 
235AB are allowed. 


RESET 
The keyword RESET does not allow the symbols 0 through 9 to be valid symbols. For example, 
the symbol 456DF is not allowed. 


result-reference-identifier 
This identifier can be any valid SDL reference identifier. It specifies the name of the field in 
which to store the string of characters. It begins with <first-character-address> and ends with, 
but does not include, any <separator> encountered during the scan. 


Example: 

CECLAFE FIRST_CHAF FEFEFENCE> % The identifier NEXT_CHAR 
RESULT FEFERENCE» % 3S assigned the vatue 
CKAR_STRING CHARACTER €15)> 7 "7", 

NEXT CHA CHARACTER (15), 


CHAR_STRING 2= "12245_78S7A8CDE"S 
REFER FIRST_CHAR 

TC SUBSTF CCHAR_STRING> O» 193 

NEXT_CHAR 3= 

DELIMITEC_TCKEN CFIAST_CHAR» "_"» SET» RESULT)3 
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NEXT_TOKEN 
Example Program: 
DECLARE ODT_INPUT CHARACTER (€50)>» 
RESULT REFERENCE » 


FIRST_CHARACTER REFERENCES 


DOD FOREVERS 
DISPLAY C*ENTER ANY SO-CHARACTERS TO BE SCANNED OR ENTER BYE FOR" 
CAT * EQN")2 
ACCEPT ODT_INPUTS 
IF ODT_INPUT = "BYE" THEN DOs 
DISPLAY ("GOOD BYE")3 
STOPS 
END? 
REFER FIRST_CHARACTER TO SUBSTR CODT_INPUT» 0» 1)3 
DISPLAY C™THE NEXT TOKEN EQUALS")3 


DISPLAY CNEXT_TOKEN CFIRST_CHARACTER® “_"» SET» RESULT) )> 
DISPLAY CFIRST CHARACTER)> 
DISPLAY CRESULT)=s 

ENDs 

FINI; 


ZX This example program finds the first token of a 5O0~character 


% message entered from the OOT and displays the token back on 
Z the ODT.j If 8YE is entered» the program goes to end of job. 
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OPEN 


The OPEN verb allows a program to explicitly open a data file. 


The OPEN verb requests permission from the MCP to access a file and to make available the requested 
memory space. An implicit open is performed by the MCP when a program reads from or writes to 
a data file that has not been explicitly opened with the OPEN verb. 


Buffer storage is allocated and file attributes are established when a file is opened. Memory storage 
utilization can be significantly optimized by delaying a file open operation until the file is needed. 


The open attributes specified with the OPEN verb override any FILE declaration attributes. Attributes 
not specified in the OPEN verb maintain the status set in the FILE declaration, or the default status 
if not specified. 


The NEW open attribute is only valid with the OUTPUT open attribute. If the OUTPUT open attri- 
bute is not specified when the NEW open attribute is specified, OUTPUT is assumed by default. 
Specifying the open attributes INPUT and NEW without specifying the OUTPUT open attribute gener- 
ates a syntax error. 


Specifying INPUT OUTPUT NEW is only valid with files whose access attribute is equal to RAN- 
DOM. 
The LOCK open attribute protects the file from write operations by another program. 


The LOCK__OUT open attribute protects the file from read operations as well as write operations by 
another program. 
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SDL and UPL Syntax: 


ee es ee ee 
< switch-file-id > (< index > ) WITH 
peed ee a tele cee ee eee 


INPUT : 
INTERPRET —————_——— / 
LOCK 

LOCK OUT 


NEW 
NO_ REWIND 
OUTPUT 
PRINT 
PUNCH 
REVERSE 
STACKERS 


; i rs FILE MISSING <statement > 
ON FILE LOCKED < statement > 
Syntax Semantics: 


file-identifier 
This field can be any valid SDL/UPL file identifier and specifies the file to be opened. 


switch-file-id . 
This field can be any valid SDL/UPL switch-file identifier and specifies the switch file to be 
opened. 


index 
This field can be any valid SDL/UPL identifier and specifies the number of the switch file to 
be opened. 


INPUT 
The keyword INPUT causes the SDL/UPL program to open an existing file and allows the pro- 
gram to read from the file. 


INTERPRET 
The keyword INTERPRET causes the SDL/UPL program to interpret card-image records as each 
is written. INTERPRET only affects files with a device type equal to DATA__RECORDER__ 80, 
PUNCH__PRINTER, READER__PUNCH, or READER__-PUNCH__PRINTER. 
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LOCK 
The keyword LOCK prevents another program from opening the specified file with the OUTPUT 
open attribute. Opening the file with the INPUT open attribute by another program is allowed. 
Once the file is closed, the file can be opened by another program with the OUTPUT open attri- 
bute. 


LOCK__OUT 
The keyword LOCK__OUT prevents another program from opening the specified file with the 
INPUT or OUTPUT open attributes. Once the file is closed, the file can be opened by another 
program with the INPUT or OUTPUT open attributes. 


NEW 
The keyword NEW specifies that the file is to be created. 


NO__REWIND 
The keyword NO__REWIND applies to files with a device type equal to TAPE, TAPE_9, 
TAPE__7, TAPE__PE, and TAPIZ__NRZ and prevents the MCP from rewinding the tape file 
when an end-of-tape mark is encountered. 


OUTPUT 
The keyword OUTPUT allows the SDL/UPL program to write to an existing file. 


PRINT 
The keyword PRINT applies to files with a device type equal to DATA_.RECORDER__80, 
PUNCH__PRINTER, READER _ PUNCH, or READER__PUNCH__PRINTER and allows the 
SDL/UPL program to interpret and punch card-image records. 


REVERSE 
The keyword REVERSE applies to files with a device type equal to TAPE, TAPE__9, TAPE__7, 
TAPE__PE, and TAPE__NRZ and notifies the MCP that the tape file is to be written or read 
in reverse. The programmer must ensure that the tape file is positioned so that the backspacing 
operation can be performed. Read operations on a tape file, with the REVERSE open attribute 
specified, report the end-of-file (EOF) record when the beginning-of-tape (BOT) mark is encoun- 
tered. 


STACKERS 
The keyword STACKERS applies to files with a device type equal to DATA_RECORDER_ 80, 
PUNCH__PRINTER, READER_-_PUNCH, or READER__-PUNCH__PRINTER and allows the 
SDL/UPL program to specify that the stackers on the card device are to be used. 


ON FILE__MISSING 
The keywords ON FILE__MISSING cause the SDL/UPL program to perform the associated 
statement if the file specified is not present at the time the OPEN verb is performed. 


ON FILE_LOCKED 
The key words ON FILE__LOCKED cause the SDL/UPL program to perform the associated 
statement if the file specified is currently locked by another program. This can occur in either 
of the two following conditions: 


1. The INPUT or OUTPUT open attributes were specified and another program has opened the 
same file with the LOCK-OUT open attribute. 

2. The OUTPUT open attribute was specified and another program has opened the same file with 
the LOCK open attribute. 
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statement 
This statement can be any valid SDL/UPL statement. 


Examples: 
CPEN CART_FILE INFUT; 


CPEN CISH_ FILE INPUT CUTPUT NEWS 
CA FILEL MISSING CISFLAY CPFILE NCT PRESENT); 


CPEN CISK_LFILE INPLT LUCK; 
CN FILE_LCCKEC CISFLAY CVFILE LOCKED"); 


CPEK TAPE_FILE NO_REWIAL INPLT3 
CPEN TAPE_FILE REVERSE CLTIPUTS 

CPEN CARC_FILE WITF STACKERS INPUT? 

CPEN CARC_FILE WITt CUTFUT PUNCH INTERPRET? 
CPEN CISK_FILE OUTFUT AEnS 


CN FILELMISSIAG CISFLAY C"FILE NOT PFESENT"™)>; 
CAN FILE_LOCKEC CISPLAY CwFILE LOCKED"); 
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Example Program: 


FILE DISKFILE CDEVICE = DISK» 
RECORDS =180/10); 


ZIP *SO OPENs*s % Sets the MCP OPEN option 


OPEN DISKFILE WITH INPUTs 
ON FILE MISSING 
DOs 
DISPLAY C"FILE DISKFILE NOT PRESENT ~~ PROGRAM IS 
DISPLAY ("TO OPEN THE FILE WITH OUTPUT NEW™)3 
OPEN DISKFILE WITH OUTPUT NEW LOCK, 
CLOSE DISKFILE WITH LOCK> 
OPEN DISKFILE WITH INPUTs 
END» 
CLOSE DISKFILE WITH REMOVES 


OPEN DISKFILE WITH OUTPUT LOCK_OUT>s 


CLOSE DISKFILE WITH REMOVE? 


GOING" Ds 


ZIP "RO OPENFRE DISKFILEs *3 % Resets the MCP OPEN option and 


Z removes DISKFILE. 
STOP=s 


FINIs 


ZX This example program shows various uses of the OPEN verb. 


Output from Example Program: 


OPENO =7275 BOJe PP=4» MP=4 TIME = 1523722023 

OPEN=1 

X OPENO =7275 FILE DISKFILE NOT PRESENT ~~ PROGRAM IS GOING 
ZX OPENO =7275 TO OPEN THE FILE WITH OUTPUT NEW 


OPENO =7275 “*DISKFILE* OPENED SERIAL EXTEND OUTPUT NEW LOCK OISK 


OPENO =7275 “DISKFILE" OPENED SERIAL EXTEND INPUT DISK 
UPENO =7275 “DISKFILE™ OPENED SERIAL EXTEND GUTPUT LOCKOUT 
OPEN=0 

“DISKFILE” REMOVED 

OPENO =7275 E0J- TIME = 1523724126 
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OVERLAY 
The OVERLAY verb is for MCP use only. 
SDL Syntax: 


—— OVERLAY ( <interpreter-index> ) ; i — 


Syntax Semantics: 

interpreter-index 
This field can be any valid SDL literal, identifier, or expression that returns a value and is used 
as an index by the interpreter swapper for the interpreter dictionary. The interpreter dictionary 
entry specifies the action that is to be taken. 

Example: 


CVERLAY CINCEX)> 
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PARITY__ADDRESS 


The PARITY__ADDRESS verb returns a 24-bit value which is the address of the first parity error in 
S-memory. If no parity error is encountered, the value @FFFFFF@ is returned. The 
PARITY__ADDRESS verb is used only by the MCP or by a standalone SDL program that does not 
run with the MCP. If the PARITY__ADDRESS verb is performed when the MCP is running, the MCP 


terminates the program. 


SDL Syntax: 


—— PARITY_ADDRESS crc ce 


Example: 


CECLARE GACLADCRESS 6I1T C24)5 % The identifier @AD_ADDRESS is 


EAD_ACTCRESS s= PARTTY_ACCRESSs % assiqned the address cf the 
Z oarity errore 
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PREVIOUS__ITEM 


The PREVIOUS__ITEM verb causes the length field of the descriptor represented by <identifier> to 
be subtracted from the address field of that descriptor. This modified descriptor is put back onto the 
name stack and is also moved to the top of the evaluation stack. The modified descriptor that has 
been moved is the address of the new item described by < identifier >. 


SDL Syntax: 


—— PREVIOUS_ITEM (<identifier>) Sa eam cee 


Syntax Semantics: 


identifier 
This field can be any valid SDL simple identifier. 


Example: 
CECLARE O1 CHAR_STRING CHARACTER (1000)5 % Causes the character C 
C3 FILLER CHARACTER €999)» % to be moved into the 
O03 LAST_CHAF CKARACTER C1); % character immediately 
PREVICUS_ITTEM CLAST_CHAF) s= "0"5 % corior to LAST_CHAR in 
% CHAR_STRING. 
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The PROCESSOR__TIME verb returns a 20-bit value that is the accumulated processor (CPU) time 
since beginning of job (BOJ). The time is returned in tenths of a second. 


SDL and UPL Syntax: 


—— PROCESSOR_TIME 


Example: 


CEGLARE X 


EIT €24)3 


X t= PROCESSUR_TIMES 


Example Program: 


DECLARE 


COUNTER 


HOURS 
MINUTES 
SECONDS 
TENTHS 
PROC_TIME 
x 

COUNTER 


0O> 


DO FOREVER; 


La 
ao 


Verbs 


oe 


% Assigns the 207*tCit accumulated processor 
% time into the identifier X. 


CHARACTER (€2)>» 
CHARACTER C2)» 
CHARACTER (€2)» 
CHARACTER €1)» 
FIXED» 
FIXED» 
FIXEDs 


9999999 * 99IDIDIS 


IF CCBUMP COUNTER) > 900000) THEN UNDO; 


END» 


PROC_TIME = PROCESSOR_TIMES 


HOURS 
MINUTES 
SECONDS 
TENTHS 


DISPLAY 
DISPLAY 


STOP? 
FINI> 


NNR SN 
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UBSTR CCONVERT CCPROC_TIME / 36000)% CHARACTER)» 6)7 


UBSTR CCONVERT CCPROC_TIF¥E MOD 660 / 10)» CHARACTER)» 6)3 


3 
SUBSTR CCONVERT CCPROC_TIME MOD 36000 / 600)» CHARACTER) »6)35 
3 
S 


UBSTR CCONVERT CCPROC_TIME MOD 10)» CHARACTER)» 7); 


C*°THE TOTAL CPU TIME EQUALS “ CAT HOURS CAT “5" 
CAT MINUTES CAT "2" CAT SECONDS CAT "2" CAT TENTHS)>5 
C"G00D BYE"). 


This example program multiplies two numbers 900/000 times and then 
uses the PROCESSOR_TIME verb to interrogate the CPU timee The 

CPU time is then displayed on the ODY and the program goes to 

end of job. 


B 1000 Systems SDL/UPL Reference Manual 
Verbs 


PROGRAM_SWITCHES 


PROGRAM__SWITCHES 


The PROGRAM__SWITCHES verb returns the current values of the program switches from the pro- 
gram parameter block (PPB). If <switch-number> is specified, the 4-bit value of the specified pro- 
gram switch is returned. If <switch-number> is not specified, the 40-bit value of all 10 program 
switches is returned. 


If <switch-number> contains a value which is less than zero or greater than nine, a run-time error 
results. 


The program switches can be permanently set in the SDL/UPL program by using the MCP MODIFY 
command or set at run-time by using the MCP SWITCH program-attribute command. In either case, 
the program parameter block (PPB) for the SDL/UPL program contains the resulting value of the pro- 
gram switches. 


The following shows how to modify the program switches in an SDL/UPL program at execution time. 
MODIFY <program name> SWITCH = @<value-0> <value-l> ... <value-9>@ 
MODIFY <program name> SWITCH <switch number> = @<value>@ 

The following shows how to permanently modify the program switches in an SDL/UPL program. 
EXECUTE <program name> SWITCH = @<value-O> <value-2> ... <value-9>@ 
EXECUTE <program name> SWITCH <switch number> = @<value>@ 


Refer to the B 1000 Systems System Software Operation Guide, Volume 1, form number 1108982, for 
a complete description of the program switch attributes. 


SDL and UPL Syntax: 


—— PROGRAM_SWITCHES — ee a 
(<switch-number> ) 


Syntax Semantics: 
switch-number 


This field can be any valid SDL/UPL integer, identifier, or expression that returns a binary value. 
<switch-number > must have a value between 0 and 9, inclusive. 
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PROGRAM _ SWITCHES 
Examples: 
X = PROGRAP_SWITCEFES; 2 Assigns to identifier X a 40“bit 
% value cf atl 10 program switches. 
X s= PROCCRAP_ SWITCKES (5)? % Assigns to identifier X a 4~bit 
% vatue cf program switch 5- 
X $= PROCFRAM_SWITCEFES CY)> z Assigns to identifier X a 4=bit 


% value of the program switch 
x soecified by identifier Ye 


X 3= PFROCKAM_SWITCKES CB&UMP Y)s Z% Assigrs to identifier X a 4=bit 
% value of the program switch 
% soecified by the vatue of ¥ + i. 


Example Program: 


DECLARE SWITCHES BIT €40)>» 
INDEX FIXEDs 


INDEX 2= Q3 
SWITCHES = PROGRAM_SWITCHES=s 


DO FOREVER> 
DISPLAY ("SWITCH “ CAT SUBSTR CCONVERT CINDEX» CHARACTER)» 7) 
CAT ™ EQUALS * CAT 
CONVERT CSUBBRIT CSWITCHES» CINDEX * 4359 43» CHARACTER))3 
IF CCBUMP INDEX) > 9) THEN Dd; 
DISPLAY ("GOOD BYE™)>; 


STOPs 

END> 
END=s 
FINI; 
2 This example program dispiays on the ODT the values of each 
% program switche The PROGRAM_SWITCHES verb is used to interrogate 
% the value of ait ten switches» The program switches must be set 
% prior to or at execution times otherwise» ali the values are equal 
Z to @ae 
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PROGRAM _ SWITCHES 
Output from Example Program: 


PEXECUTE PRGSWITCHO SWITCH = 0123456789Aa;>5 


PRGSWITCHO =7468 BOJ» PP=4» MP=4 TIME = 1124222126 
X PRGSWITCHO =7468 SWITCH 0 EQUALS 
2 PRGSWITCHO =7468 SWITCH i EQUALS 
Z PRGSWITCHO =7468 SWITCH 2 EQUALS 
ZX PRGSWITCHO =7468 SWITCH 3 EQUALS 
% PRGSWITCHO =7468 SWITCH 4 EQUALS 
% PRGSwITCHO =7468 SWITCH 5 EQUALS 
% PRGSWITCHO =7468 SWITCH 6 EQUALS 
% PRGSWITCHO =7468 SWITCH 7 EQUALS 
% PRGSAITCHO =7468 SHITCH 8&8 EQUALS 
X PRGSWITCHO =7468 SWITCH 9 
% PRGSHITCHO =7468 GUOD BYE 
PRGSWITCHO =7468 E0Jo. TIME = 1124224322 


Po an AUS wN = 


EQUALS 
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READ 


The READ verb causes the SDL/UPL program to read a record from the specified file and store the 
record in <identifier-1>. 


Read operations can be performed on any readable device. Reading a diskette file requires that the 
file be copied to a disk file before it is processed. 


The file attributes in the FILE declaration statement determine which of the position options (<record- 
address-identifier >, <remote-key-identifier>, or <queue-family-identifier>) can be specified. The 
<record-address-identifier > requires a file with a disk device type and random access or a card device 
type with the STACKERS open attribute specified at file open time. The <remote-key-identifier > re- 
quires a file with a device type equal to REMOTE. The <queue-family-identifier > requires two file 
attributes to be specified in the file declaration. The two file attributes are a device type equal to 
QUEUE and the QUEUE__FAMILY__SIZE that is equal to the number of queue families. 


SDL and UPL Syntax: 
— READ ar ee apc a ns 
<switch-file-identifier> (<number>) ——-———— 
L_ [ <record-address-identifier-=> ———-—— ] _] 


- <remote-key-identifier> ————| 


< queue-family-identifier> 
SS (Merb fev) og 


i Sa ee o_O 
WITH RESULT_MASK <address-generator> a 


ON EOF <statement-1>; 
ON EXCEPTION <statement-2> ; 
ON INCOMPLETE_1IO <statement-3> ; 
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READ 


UPL Syntax: 
-—— READ <file-identifier> ens eens 
i <switch-file-identifier> (<number> ) 
ete ee ee ee CC 
[ <record-address-identifier> | 
_— <remote-key-identifier> ——| 
< queue-family-identifier> 


>—_———. ( <identifier-1>) 


1 pees ~(UtC“‘i~S 
WITH RESULT_MASK <address-generator> 


ON EOF <statement-1>; 
ON EXCEPTION <statement-2> ; 
ON INCOMPLETE_1O <statement-3>; 


Syntax Semantics: 


address-generator 
This field can be any valid SDL/UPL address generator. It specifies the name of the exception 


mask field. 


file-identifier 
This field can be any valid SDL/UPL file identifier with exception of a file that is opened OUT- 
PUT only and specifies the name of the file to be read. 


switch-file-identifier 
This field can be any valid SDL/UPL switch file identifier with exception of a file that is opened 
OUTPUT only and specifies the name of the file to be read. 


number 
This field can be any valid SDL/UPL integer, identifier, or expression that returns a binary value 


and specifies the file number of <switch-file-identifier>. 


record-address-identifier 
This field can be any valid SDL/UPL identifier and it specifies the key location of a record 
within a file. <record-address-identifier> is valid for files with a device type equal to DISK 
RANDOM and DISK__PACK RANDOM. <record-address-identifier > is also valid for card files 
that are opened with the STACKERS open attribute. 


<record-address-identifier > must be a binary value or an expression that returns a binary value. 
If the value is greater than 24 bits, only the rightmost 24 bits are used. For card files, the binary 
value of <record-address-identifier > must be less than or equal to seven, and must correspond 
to a stacker available on the device. For example, if only two stackers are available on the card 
device, a <record-address-identifier > equal to three is not valid. 
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remote-key-identifier 


This field can be any valid SDL/UPL identifier and it specifies the relative station number (RSN) 
within the remote file on which the READ operation is completed. 


<remote-key-identifier > is valid for files with a device type equal to REMOTE. The data type 
of <remote-key-identifier > must be equal to CHARACTER and have a length of 10 bytes. A 
read operation of a remote file causes the relative station number of a station within the remote 
file, message text size and the read operation code ‘‘000’’ to be stored into <remote-key-identifi- 
er>. The relative station number defaults to the character ‘‘1’’ if the maximum number of sta- 
tions in the remote file is equal to one. The maximum number of stations is specified in the FILE 
declarations. For example, DEVICE: = REMOTE (5) specifies that the maximum number of sta- 
tions for this file is five. 


queue-family-identifier 


This field can be any valid SDL/UPL identifier and it specifies the family number in the queue 
file which the read operation has completed. 


< queue-family-identifier > is valid for a file with a device type equal to QUEUE and with the 
QUEUE__FAMILY__SIZE greater than one. <queue-family-identifier> specifies which queue 
family member from which to read. If <queue-family-identifier > is not specified in the READ 
verb, the oldest message in the queue file is read. 


The end-of-file (EOF) record is treated as a pseudo-message in the queue file. That is, when the 
last message has been read from the queue file, the queue file remains not empty for waiting 
purposes. A subsequent read operation causes the end-of-file branch to be taken. The queue file 
is then empty but still in end-of-file status. If another read operation is issued to the queue file, 
the program takes the end-of-file branch. If the reading program closes and reopens the queue 
file or a new writing program opens the queue file, the end-of-file condition is reset. 


A read operation directed to a specific member of a queue file family is treated as though it were 
issued to a simple queue file. A read operation issued to an unspecified member of a queue file 
family (unspecific read using <queue-family-identifier > equal to — 1) returns the end-of-file con- 
dition if all the members in the queue file family are empty and no active writing programs have 
the queue file open. 


identifier-1 


This field can be any valid SDL/UPL identifier and it specifies the data address in which to store 
the data read. 


ON EOF 


The keywords ON EOF cause the program to perform <statement-1>, if the end-of-file record 
is read from the file. For queue files, if end of file occurs, the queue file is then empty and there 
are no programs with the file opened and the OUTPUT open attribute set. 


ON EXCEPTION 
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The keywords ON EXCEPTION cause the program to either perform <statement-2> or to store 
the 24-bit exception mask into <identifier-2>. If a parity error is encountered during the read 
operation and all the MCP retries have been exhausted, the 24-bit exception is stored in <identi- 
fier-2>. 


Exceptions for a file can be masked if the EXCEPTION__MASK file attribute is specified in the 
FILE declaration statement. If an identifier, enclosed in parentheses, follows the ON EXCEP- 
TION keywords, a 24-bit value which describes the exception that occurred is returned. 
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READ 


ON INCOMPLETE_IO 
The key words ON INCOMPLETE__IO cause the program to perform <statement-3>, if the 
queue file is empty and another program has opened the queue file with the OUTPUT open attri- 
bute set. 


statement-1 
This field can be any valid SDL/UPL statement. It is performed when the ON EOF keywords 
are specified in the READ verb and the end-of-file record is encountered in the file. If an excep- 
tion occurs for queue files, an invalid <remote-key-identifier > value has been provided in the 
READ verb. 


statement-2 
This field can be any valid SDL/UPL statement. It is performed when the ON EXCEPTION 
keywords are specified in the READ statement and a parity error is encountered while attempting 
to read a record from the file. 


statement-3 
This field can be any valid SDL/UPL statement. It is performed when the ON 
INCOMPLETE__IO keywords are specified in the READ statement, when the end-of-file record 
was encountered in the queue file, and when there is a program that has the queue file open 
with the OUTPUT open attribute. 


WITH RESULT__MASK 
The keywords WITH RESULT__MASK cause the program to use <address-generator> as the 
exception mask identifier. The EXCEPTION__MASK file attribute must be specified in its FILE 
declaration statement. 


Variable-Length Records 


The syntax of the READ verb for variable-length records resembles the syntax for fixed-length records. 
The difference between them is the data type and the data length of the identifier. 


Variable-length records are allowed only in tape and serial disk files that are declared with the file attri- 
bute VARIABLE. The RECORDS file attribute of the file must be large enough to hold the largest 
record that is to be read or written. 


The actual manipulation of variable-length records is invisible to the programmer of the read operation. 
An exception is that the programmer must allow for a 4-byte field, which begins in the first position 
of each record to be stored in the identifier receiving the data. This 4-byte character field contains 
the length, in bytes, of the record that is read. This record length is equal to the number of bytes 
in the data file plus four. The record length is specified as a decimal value. 
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Example Program that Reads Variable-Length Records: 


FILE PAYROLL CDEVICE = DISK» 
OPEN_OPTION = INPUT/OUTPUT> 
RECORDS = 240/11» VARIABLE)» 


DECLARE 01 DISK_BUFFER CHARACTER (€80)>» 
O02 REC_SIZE CHARACTER (€4)» 
O02 DATA CHARACTER (76)% 


DO FOREVER, 
READ PAYROLL CDISK_BUFFER)> 
ON EQF UNDO>s 
END > 


CLOSE PAYROLL LOCKs 
STUPS 
FINI; 


To process variable-length records, the MCP builds a single buffer whose size is equal to the declared 
record size multiplied by the records per block. The MCP reads into its buffer as many complete logical 
records as it can. It never splits a logical record across physical record boundaries. 


The following shows those logical records read into the buffer by the MCP. Assume the program 
specifies a record size equal to 240 bytes and the order and length of each record are: 


Record Record Size in Bytes 
Number (Including Record Size Field) 
1 48 
2 63 
3 80 
4 
5 31 


Figure 9-1 shows the contents of the 240-byte program buffer after a read operation is performed. 


Record 1 Record 2 Record 3 49 empty bytes 
48 bytes 63 by tes 80 bytes (hex zeroes) 
+—_________-— 240 bytes ————_______| 


G18304 


Figure 9-1. Contents of Buffer After a Read Operation. 
Only records 1, 2, and 3 are stored into the buffer because the next record (record 4) is too long to 


be stored in the remaining portion of the buffer. The unused portion of the buffer is filled with 
hexadecimal zeroes. 
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Examples: 


FEAT 


READ 


FEAD 


KE AD 
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OISKFILE CFIELC), 
CN EQF STCPs ~ 


QISK CINCEX] CFIELC)s 
OW ECF STUP; 
ON EXCEPTICN CISPLAY C*AOT FOUN"); 


GUELEFILE fNUMBERT CFIELD); 

CN INCQOMPLETE_IC CISFLAY C8NO MESSACES™); 
ON EGF CISPLAY C*AQ 2RITERS@ D> 

GN EXCEPTION DISPLAY C"INVALIO KEY")s 


KEMOTEF ILE CKEY) CFIELT)S 
ON EXCEPTION CISPLAY C*INVALIC KEY"); 


~~ nN 


we De we DS. 


we DE RE DSF 


we we xe 


READ 


Reads from the fite 
ftabeted DISKFILE. 


Reads from the fite 
tabeled DISK at 
record address = 
the value of INDEX. 


Reads from the file 
fabeled QUEUEFILE 
at queue fawnily = 
the value of NUMBER. 


Reads from the file 
tabeled FEMCTEFILE 
at remote key = the 
value of KEY. 
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Example Program: 


DECLARE FIELD CHARACTER (90)3 
FILE DISKFILE CDEVICE = DISK» 
RECORDS = 90/2)> 
OPEN DISKFILE WITH INPUTs 
DO FOREVER> 
CASE WAIT CTIME_TENTHS €10)> SPO_INPUT_PRESENT) > 
X TIME = 1 SECOND 


DOs 
READ DISKFILE CFIELD)s 
ON EOF DO>s 
DISPLAY C"END OF FILE ENCOUNTERED ~~ GOOD BYE"™)Ds 
STOPs 
ENDe 
ON EXCEPTION DOs 
DISPLAY C*PARITY ENCOUNTERED =~ GOOD BYE"™)>s 
STOP? 
ENDs 
DISPLAY CFIELD)> 
ENDs 
Z SPO_INPUT_PRESENT 
DO; 
ACCEPT FIELD; 
IF FIELD = *BYE" THEN DOs 
DISPLAY ("GOOD BYE"); 
STOP? 
END> 
ENDs 
END CASE>s 
ENDs 
FINI; 
Z% This exanple program reads a disk file Labeled DISKFILE and 
Z displays on the ODT each record read- If the end-of-fitle 
% record is encountered or an exception occurs» the progran 
Z goes to end of jobe If BYE is entered to the programs the 
% program goes to end of job. 
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READ_CASSETTE 
READ__CASSETTE 


The READ__CASSETTE verb causes the number of bits specified by <destination-identifier > to read 
from the console cassette drive to the address specified by that <destination-identifier >. This number 
of bits must be equal to the record size minus the hash-total size (if it is present) of 16 bits. The key- 
words HASH__TOTAL or NO__HASH__TOTAL indicate whether or not a hash-total is expected at 
the end of the record. 


SDL Syntax: 


—— READ_CASSETTE ( <destination-identifier>, ——— HASH_ TOTAL ie 
NO_HASH_ TOTAL 
>_——— + <result-identifier> ) ; 5 


Semantics: 


destination-identifier 
This field specifies the number of bits to be read from the console cassette drive and specifies 
the destination field for the data. 


result-identifier 
This field contains a value of 0 or 1 after the READ__CASSETTE operation is complete. A value 
of 0 indicates that the hash total was incorrect. A value of 1 indicates that the hash total was 


correct. 


- HASH__TOTAL 
The keyword HASH__TOTAL specifies that a hash total is expected at the end of the record. 


NO__HASH__TOTAL 
The keyword NO__HASH__TOTAL specifies that there is no hash total expected at the end of 
the record. 

Examples: 


FEAC CASSETTE COESTINATICN> FASH_ TOTAL» RESULT); 


FEAG_CASSETTE CRECCRD» AC_EASH_TOTAL»> FASP_RESULT)3 
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Example Program: 


FILE LINE CDEVICE = PRINTER» 
RECORDS = 132/1)3 


DECLARE CASSETTIE_RECORD BIT (80)> 
HASH_RESULT BIT (1) 


OPEN LINE OUTPUT NEW? 
DO FOREVERs 
READ_LCASSETTE CCASSETTE_RECORD» HASH_TOTAL» HASH RESULT)» 
IF HASH_RESULT = 1 
THEN WRITE LINE CCONVERT CCASSETTE_RECORD»> CHARACTER))>5 
ELSE DOO» 
DISPLAY “INCORRECT HASH RESULT"> 
CLOSE LINE> 
STOP? 
END; 
END=> 
FINI; 


% This example program reads from the console cassette drive 


Z using the READ_CASSETTE verb and writes the data to a printer 
2% file Labeled LINE. 
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READ__FILE_ HEADER 


The READ_FILE_HEADER verb reads the disk-file-header information for the file specified by 
< file-identifier >. This verb is intended for use only in B 1000 system software. 


SDL Syntax: 
— READ_FILE_HEADER (<file-identifier>, <destination> ) ; ——_—_—_—_—_———_________________> 


ON FILE_MISSING <statement-1 
1 ON FILE_LOCKED <statement-2> 


Syntax Semantics: 


file-identifier 

This field specifies the name of the file and can be any valid SDL literal, identifier, or expression 
that returns a value with a data type equal to CHARACTER. <file-identifier > is expected to 
be a 30-character value, where the first 10 characters are the pack identifier, the second 10 charac- 
ters are the multifile identifier, and the third 10 characters are the file identifier. Each file identifi- 
er is left-justified in its respective field. If only one file name exists (no multifile identifier or 
pack identifier), the file name is left-justified in the second 10 characters of < file-identifier > 
and the first and third 10 characters are set to blank. 


destination 
This field can be any valid SDL identifier and it specifies the receiving field for the disk-file- 
header information. This field is expected to be from 576 to 4320 bits in length depending upon 
the number of disk areas allocated for the file. 


ON FILE_MISSING 
The keywords ON FILE__MISSING cause <statement-1> to be performed if the file name spec- 
ified by <file-identifier> is not in the disk directory. 


ON FILE_LOCKED 
The keywords ON FILE__LOCKED cause <statement-2> to be performed if the file name 
specified by <file-identifier> is opened by another program with the LOCK open option set. 


statement-1 
This field can be any valid SDL statement and it is performed if the keywords ON 
FILE__MISSING are specified and <file-identifier> is not in the disk directory. 


statement-2 
This field can be any valid SDL statement and it is performed if the keywords ON 
FILE__LOCKED are specified and <file-identifier> is currently opened with the LOCK open 
option set. 
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READ FILE HEADER 
Example: 
DECLARE DISKFILE CHARACTER (€30)» XZ The disk file header 

DESTINATION BIT €4320)>3 Z information of the file 
DISKFILE 2= "USER MASTER FILE “> £ USER/MASTER/FILE is 
READ_FILE_HEADER CDISKFILEs DESTINATION)> Z% stored in DESTINATION. 
ON FILE_MISSING STOPs 
ON FILE_LOCKED STOP> 


Example Program: 


& VSSIZE 80000 
R NSSIZE 40 
DECLARE FILENAME CHARACTER (30)» 


DO 


DESTINATION BIT €4320)» 
DFH_LENGTH BIT C16)% 


MAIN_LOOP FOREVER? 
DISPLAY {™ENTER THE 30 CHARACTER FILE NAME LEFT JUSYIFIED OR 
CAT “BYE To GO TO E0J")3 
ACCEPT FILENAMES 
IF FILENAME = "BYE" THEN DOS 
DISPLAY ("GOOD BYE"); 
STOP? 
END? 
DO READ_DFH3 


READ_FILE_HEADER CFILENAME> DESTINATION)? 
ON FILE_MISSING DO? 
DISPLAY C°FILE * CAT FILENAME CAT 
"NOT IS DISK DIRECTORY")3 
UNDO READ_DFH3 
ENDs 
ON FILE_LOCKED bo; 
DISPLAY C*FILE ™ CAT FILENAME CAT 
" TS LOCKED™)3 
UNDO READ_CFHS 
END; 


DFH_ LENGTH *= SUBBIT (DESTINATION» 915 16)3 


ENTER * 


DISPLAY ("THE DISK FILE HEADER GF ™ CAT FILENAME CAT * I5")35 
DISPLAY CCONVERT CSUBBITCDESTINATION» O» DFH_LENGTH)» CHARACTER))? 


END READ_DFHS 


END MAIN LOOPS 
FINI; 


Z This example program displays the disk-file™header 


% for the file name that is accepted from the ODT.~ If BYE is 
% entered» the program goes to end of jod.e 
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READ_FPB 


READ__FPB 


The READ__FPB verb reads the file parameter block (FPB) of the file specified by < file-identifier > 
or <file-number> and stores the information in <destination>. 


SDL Syntax: 
——READ_FPB ( a i <file-identifier> 
< file-number> 


Syntax Semantics: 


, “<destination> ) ; —__—_—__— 


file-identifier 
This field can be any valid SDL file identifier and it specifies the file name from which to read 


the file parameter block (FPB) information. 


file-number 
This field can be any valid SDL number and it specifies the relative file number, within the pro- 


gram, from which to read the file parameter block (FPB) information. The relative file numbers 
range from 0 to n-l, where n is the total number of files declared in the SDL program. 


destination 
This field can be any valid SDL identifier and it specifies the (FPB) information. The length of 


this field must be 2096 bits. 


Example: 


CECLARE FPU_IANFQ @1T €1440)3 % The file parameter block information 
FEAC_FPS COISKFILE» FFA_INFC)s 2% of the file DISKFILE is stored into 
% identifier FPE_INFC. 
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READ_FPB 


Example Program: 


DECLARE ODT_INPUT CHARACTER (€10)> 


01 FPB_RECORD BIT €1440)» 
03 FILENAME CHARACTER (€10)3 


FILE DISKFILE CDEVICE = DISK» 


RECORDS = 180/10)>3 


OPEN DISKFILE WITH OUTPUT NEW; 
DO FOREVERs 


READ_FPB CDISKFILE» FPB_RECORD)> 


DISPLAY C"THE FPB NAME OF DISKFILE IS * CAT FILE_NAME )3 
DISPLAY CENTER ANY 1O-CHARACTER FOR THE NEW NAME OF DISKFILE* 
CAT 7 OR ENTER BYE FOR E0U")3 
ACCEPT ODT_INPUTS 
IF ODT_INPUT = “BYE" THEN DO; 
DISPLAY ("GOOD BYE"); 
CLOSE DISKFILE WITH RELEASES 
STOP; 
END 
FILE_NAME 2= ODT_INPUTS 


WRITE_FPB CDISKFILE» FPB_RECORD)>; 


END> 

FINI> 

Z This example program uses the READ_FPB to read the file parameter 
% block information from the fite DISKFILE and uses the WRITE_FPB 

% verb to change the name of file DISKFILE. The program displays 

% the current fite name that is currently stored in the file 

% parameter block» accepts a 1l10“character file names and stores the 
% new fite name in the file parameter block.» If BYE is entered» the 
2 program goes to end of job. 
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Verbs 


READ_OVERLAY 


The READ__OVERLAY verb reads from the disk address specified in <overlay-information> and 
stores the beginning and ending addresses and disk address of the data segment. 


The READ__OVERLAY verb is used only by the SDL intrinsics. 


SDL Syntax: 


—— READ_OVERLAY (<overlay-information>) ; -—  ________] 


Syntax Semantics: 


overlay-information 


This field can be any valid SDL literal, identifier, or expression that returns a 76-bit value and 


has the following format. 


Bits 


0-3 EU = 0 (not used). 
4-27 _ Base-relative beginning address. 

28-51  Base-relative ending address. 

52-75 Disk address, relative to program area. 


Example: 

CECLAKE O1 CVEFLAY_RECORCO 8IT 
03 €U ETT 
C3 PEGIN_ACOR ETT 
03 END_ADCE EIT 
03 CISK_ADCR G9T 

EL s= L> 

BEGIN AGOR 2= a?lE7A2a;, 

ENOLACOR 3: a71F B42q3 


CISK_AGUR t= g0UK8A7833 
REAL_OVERLAY CCVERLAY_RECGRC)3 
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C76)» 
C4)» 

(24) >» 
C24)» 
C24)5 


Description 


me re NM PR 


w 


The data segment at disk 
address @008A78a is stored 

in the base to limit of the 
program Feqinning at a71F7A2¢ 
and endirg at a/71F &42Q. 
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The REDUCE verb truncates a reference identifier from the left (right) until the first (last) character 
satisfies a specified condition. This is a flexible and efficient means for scanning character strings which 
use reference variables, rather than integers which serve as pointers to substrings. 


No change is actually made to the value of an identifier when the REDUCE verb is performed. The 
identifier is re-bound to a substring of its former reference identifier. 


SDL and UPL Syntax: 


—— REDUCE <reference-identifier-1-> ——-—_— > 


A ee OC 
SETTING <reference-identifier-2-> 


a FIRST EQ. <literal> —-;-7-- 
LAST ~ be <identifier> 


IN <character-table-identifier> —— 


ON EOS_CYCLE <statement-1>; — on gos_eve <n s>; ———J 
ON EOS <statement-2>; 


Syntax Semantics: 


reference-identifier-1 
This field can be any valid SDL/UPL reference identifier and it specifies the reference variable 
to be reduced. 


reference-identifier-2 
This field can be any valid SDL/UPL reference identifier and it specifies the reference variable 
that contains the truncated portion of <reference-identifier-1 >. <reference-identifier-2> is as- 
signed the truncated portion of <reference-identifier-l1> when the keyword SETTING is 
specified. 


SETTING 
The keyword SETTING causes the truncated portion of <reference-identifier-1> to be stored 
in <reference-identifier-2>. 


UNTIL 
The keyword UNTIL is required. 


FIRST 
The keyword FIRST causes the reduction to end on the first character that is equal or not equal 
to the specified literal or identifier or in the specified <character-identifier-table>. 


LAST 
The keyword LAST causes the reduction to end on the last character that is equal or not equal 
to the specified literal or identifier or in the specified <character-identifier-table>. 
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REDUCE 
EQL 


The keyword EQL specifies that the reduction is complete when a character in <reference-identi- 
fier-1> is equal to the specified literal or identifier. 


NEQ 


The keyword NEQ specifies that the reduction is complete when a character in <reference-identi- 
fier-1> is not equal to the specified literal or identifier. 


The keysymbol = has the same meaning as the EQL keyword. 


/= 
The keysymbols /= have the same meaning as the NEQ keyword. 

IN 
The keyword IN specifies that the reduction is complete when a character in <reference-identifi- 
er-!> is in the character table specified by <character-table-identifier >. 

literal 
This field can be any valid SDL/UPL literal and it specifies the character within <reference-iden- 
tifier-1 > that ends the reduction. This character must be enclosed within the quotation mark (‘‘) 
characters. 

identifier 


This field can be any valid SDL/UPL 1-character identifier and it specifies the character within 
<reference-identifier-1 > that ends the reduction. 


character-table-identifier 
The field can be any valid character table identifier and it specifies the characters within <refer- 
ence-identifier-1 > that ends the reduction. 


ON EOS 
The keywords ON EOS cause <statement-2> to be performed. Control is returned to the state- 
ment that follows the REDUCE verb if <reference-identifier-1> is reset and no longer null. 
<reference-identifier-1 > can become null when the reduction ends with <reference-identifier-1 > 
equal to ‘*’’. 


ON EOS__CYCLE 
The keywords ON EOS__CYCLE cause <statement-1> to be performed. Control is returned to 
the REDUCE verb if <reference-identifier-1 > is reset and is no longer null. <reference-identifi- 
er-1> can become null when the reduction ends with the reference identifier equal to ‘‘’’. 
Example 1: 


CLECLARE ICENTIF TES CHARACTER C6)» 
REFERENCE 19 REFERENCE; 


IDENTIF TER 2= "AECDERNS 
REFER POFERENCE 1D TC ICENTIFIER, 


REDUCE REFERENCE TO UNTIL FIRST ="0"%; 
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REDUCE 


Figure 9-2 shows the before and after results of example 1. 


REFERENCE_1ID 


REFERENCE_!ID 
Before 


After 


“ABCDEF” —-——> REDUCE —_ 
G18305 


“DEF” 


Figure 9-2. Before and After Results of the REDUCE Operation 


The truncated portion of the string can also be referenced by using the SETTING keyword in the RE- 
DUCE verb. 


Example 2: 

CECLARPE ICENTIFIER CHARACTER (6) 
FEFFRENCE_IC_1 &EFFERENCE> 
KEFERENCE_IC_2 fEFERENCES 

ICENTIFIER s= "AUCDEF™; 


REFER REFERENCE 101 TO IfENTIFIERS 


FECUCE FEFEFENCE_10_1 SETTING FEFERENCE_I0_2 UNTIL FIRST 


=D; 
Figure 9-3 shows the before and after results of example 2. 
REFERENCE_1D_1 REFERENCE_ID_1 REFERENCE_!D_2 
Before After After 
“ABCDEF” ———> REDUCE —— > “DEF” “ABC” 


G18306 


Figure 9-3. Before and After Results of the REDUCE Operation 


The reduction of an identifier can also be performed from right to left by using the keyword LAST 
instead of the keyword FIRST. 


Example 3: 
CECLARE ICENTIFIER ClLARACTER (€6)- 


REFERENCE_IC_1 f&EFERENCE> 
REFEMENCE_ICL_2 wKEFEREACES 


IDENTIFIER s= "ABCDEF™, 
FEFER KEFERENCE_ IO_1 TC ICENTIFIERS 


FEQUCE BFEFERENCE_IC_1 SETTING FEFERKENCE_ID_2 UNTIL LAST ="D"35 
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, REDUCE 
Figure 9-4 shows the before and after results of the example 3. 
REFERENCE_!ID_1 REFERENCE_!1D_1 REFERENCE_ID_2 
Before After After 
“ABCDEF” —— > REDUCE _——_ “ABCD” VER” 


G18307 
Figure 9-4. Before and After Results of the REDUCE Operation 
Example Program: 


DECLARE ODT_INPUT CHARACTER (50). 
REFERENCE_1 KEFERENCE> 
REFERENCE 2 REF ERE NCEs 


DO FOREVER 
DISPLAY C"ENTER ANY 50 CHARACTERS OR ENTER BYE TO GO TO E0U")3 
ACCEPT ODT_INPUTS 
REFER REFERENCE_1 TO ODT_INPUT;3 


REDUCE REFERENCE _1 UNTIL FIRST NEQ * "3 
ON EQS DOs 
DISPLAY C"NO CHARACTERS WERE ENTERED = BYE ASSUMED"); 
DISPLAY ("GOOD BYE"), 
STOPS 
END> 


REDUCE REFERENCE 1 SETTING REFERENCE_2 UNTIL FIRST EQL * *%3 
IF REFERENCE_2 = *“BYE™ THEN DOO3 
DISPLAY C*GOOD BYE"); 
DISPLAY C"THE FIRST NON@WBLANK WORD I5 * CAT REFERENCE_2);3 
END?» 
FINI; 
% This example program accepts up to 50 characters on the ODOT 
% and uses the REOUCE verb to scan for the first group of 


% characters delimited by the blank character. The REFER verb 
% is used to bind REFERENCE_1 to ODT_INPUT. 
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The REFER verb binds a reference identifier to an addressable data item. It then becomes the referent 
of the reference identifier. 


The lexic level of the identifier cannot be greater than that of <reference-identifier>. 


A reference identifier can be bound to a NULL character or a bit string. Testing for NULL is accom- 
plished by examining the reference identifier for a length of 0 (zero). 


SDL and UPL Syntax: 


—— REFER <creference-identifier> TO <identifier>; ——————— 


Syntax Semantics: 


reference-identifier 
This field must be an identifier with a data type equal to REFERENCE. 


identifier 
This field can be any valid SDL/UPL identifier and it specifies the data item that is to be bound 
to <reference-identifier >. 


Examples: 
CECLARE CKAR_IC CHARACTER (20). 
FEFER_ CHAR_IC &EFERENCE®> 
EIT_10 FIT €20)- 


REFER_BIT_10 REFERENCES 


KEFER REFER_CHAR_IC TG CHAR_ID$ % REFER_CHAR_ID is now bound to 
% CHAS_ID. 


REFER REFER_BIT_IO TC S1T_103 % REFER_BIT_IOD is now bound to 
Y BIT_ID. 


Example Program: 


For an example program using the REFER verb, refer to the three REDUCE verb programs. 
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REFER_ADDRESS 


The REFER__ADDRESS verb causes the base-relative address of <address> to be stored in the ad- 
dress part of <reference-identifier >. 


SDL Syntax: 


—— REFER_ADDRESS (<reference-identifier>, < address> ) ; ———— 


Syntax Semantics: 


reference-identifier 
This field can be any valid SDL reference identifier and it specifies the field that will receive the 
base-relative address of <address>. 


address 
This field can be any valid SDL literal, identifier, or expression that returns a value. The address 
of <address> is stored in the address part of <reference-identifier >. 


Example: 
DECLARE REF REFERENCE» Z The value of identifier A is 
A CHARACTER C€10)> %2 stored in the address part of 
REFER_ADDRESS CREF» A)z X reference identifier REF. 


Example Program: 


RECORD R 
R_A BIT (€80)3 
DECLARE ADDRESS R REFERENCE> 
A Re 


REFER UL ADDRESS CADDRESS» DATA_ADDRESS CA))s 

DISPLAY C"THE DATA ADDRESS OF IDENTEFIER A IS * CAT 
CONVERT CDATA_ADDRESS CA)» CHARACTER) )3 

DISPLAY ("THE DATA ADDRESS OF REFERENCE IDENTIFIER ADDRESS [5S ™ CAT 
CONVERT CDATA_ADDRESS CADDRESS)» CHARACTER) )s5 

STOPs 

FINI> 


% This example program stores the address of record R into the 
% address part of reference identifier ADDRESS and displays the 
% address of each identifier. 


Output from Example Program: 


ADDRESSO =2159 BOJ. PP=4»5» MP=4 TIME = 1524220923 

Z ADDRESSO =2159 THE DATA ADDRESS OF IDENTIFIER A IS 000000 

Z ADDRESSO =2159 THE DATA ADDRESS OF REFERENCE IDENTIFIER ADDRESS 
1S 000000 

ADDRESSO =2159 EOS. TIME = 1524221661 
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The REFER__LENGTH verb causes the length of <length> to be stored in the length part of <refer- 
ence-identifier >. 


SDL Syntax: 


—— REFER_LENGTH (<reference-identifier> , <length>) ; ——-— | 


Syntax Semantics: 


reference-identifier 
This field can be any valid SDL reference identifier and it specifies the field in which to receive 


<length>. 


length 
This field can be any valid SDL literal, identifier, or expression that returns a value. The length 


of <length> is stored in the length part of <reference-identifier >. 


Example: 
GECLARE HEF REFERENCE,» % The tenoth of identifier LENGTH 
LENGTH FIXED, 4 18 stored ir the lergth part of 
REF ERLLENGTR CREF, LENCTE), Z reference identifier REF. 


Example Program: 


DECLARE LENGTH REFERENCE> 
A FIXEDs 


REFER LENGTH CLENGTH» DATA_LENGTH CA))> 

DISPLAY ("THE DATA LENGTH OF IDENTIFEER ATS * CAT 
CONVERT CDATA_LENGTH CA)» CHARACTER))> 

DISPLAY C"™THE DATA LENGTH OF REFERENCE IDENTIFIER LENGTH IS * CAT 
CONVERT CDATA_LENGTH CLENGTH)» CHARACTER))> 

STOPs 

FINIs 


Z This example program stores the value of identifier LENGTH in 
% the Length part of reference identifier REF and displays the 


Z length of each identifier. 


Output from Example Program: 


LENGTH =2178 BOJ. PP=4e MP=4 TIME = 16202°16.0 

ZX LENGTH =2178 THE DATA LENGTY GF IDENTIFIER A I5 000018 

Z LENGTH =2178 THE DATA LENGTH OF REFERENCE IDENTIFIER LENGTH IS 
000018 

LENGTH =2178 EOJe TIME = 16202°25.8 
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REFER__TYPE 


The REFER__TYPE verb causes the data type of <type> to be stored in the data type part of <refer- 
ence-identifier >. 


SDL Syntax: 


—— REFER_TYPE (<reference-identifier>, <type>); ———_———__ 


Syntax Semantics: 


reference-identifier 
This field can be any valid SDL reference identifier and it specifies the field that will receive the 


data type. 


type 
This field can be any valid SDL literal, identifier, or expression that returns a value. The data 
type of <type> is stored in the data type part of <reference-identifier>. 


Example: 
CECLARE FEF REFERENCE> % The data tyne of identifier TYPE 
TYPE BIT (5)> % 1% stored in the data type part 
rEFER_LTYPE CREF» TYPE); % of reference identifier KEF. 


Example Program: 


DECLARE TYPE REFERENCE» 
A FIXED; 


REFERLTYPE CTYPE» DATA_TYPE CA))3 

DISPLAY C™"THE DATA TYPE OF IDENTIFIER A IS * CAT 
CONVERT CDATA_LTYPE CA)» CHARACTER ))5 

DISPLAY C"THE DATA TYPE OF REFERENCE IDENTIFIER TYPE IS ™ CAT 
CONVERT COATA_TYPE CTYPE)» CHARACTER)); 

STOP» 

FINIs 


% This example program stores the data type of identifier A in 
2 the data type part of reference identifier TYPE ano displays 
Z the data type of each identifier. 


Output from Example Program: 
TYPEO =2174 BOJ- PP=4e MP=4 TIME = 1525432322 
xX TYPEO =2174 THE DATA TYPE OF IDENTIFIER A IS 000044 


% TYPEOQ =2174 THE DATA TYPE OF REFERENCE IDENTIFIER TYPE IS 000044 
TYPEO =2174 EQJ- TIME = 15254231.0 
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The RESTORE verb assigns an evaluation stack entry to each specified value, beginning with the top 
of the evaluation stack. This verb is used in conjunction with the SAVE verb. 


SDL Syntax: 


—— RESTORE ( ne Laeger ee ); So 


Syntax Semantics: 


value 
This field can be any valid SDL identifier or expression that returns a value and specifies the 


value to be placed on the evaluation stack. 


Example: 


SAVE CAw Bo CY; 


a 


FESTCHE (Ce 8» A> 
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RETURN 


The RETURN verb can take one of two forms, depending on the type of procedure encompassing it. 
If the procedure is a typed procedure, an expression must be returned to the point of invocation. If 
the procedure is a non-typed procedure, only a simple return is required. 


Type checking on the RETURN verb is performed only at run time when the FORMAL_-CHECK 
compiler option is specified as a compiler control option. 


The SDL/UPL compiler generates an implicit RETURN verb if one is not specified and the RETURN 
verb is required. Refer to Section 7 for use of the RETURN verb. 


SDL and UPL Syntax: 


sr 


< expression > 
Syntax Semantics: 
expression 
This field can be any valid SDL/UPL expression and it specifies the value that is to be returned 
to the point where the procedure was invoked. 
Examples: 
RETURN; 


ewETUBN Loe 
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RETURN__AND__ENABLE__INTERRUPTS 


The RETURN__AND__ENABLE__INTERRUPTS verb is used only by the MCP. This verb causes a 
normal procedure exit to occur and enables interrupt. 


SDL Syntax: 


— RETURN_AND_ENABLE_INTERRUPTS: 


Example: 
fETUKN ANC_ENAELE_INTERRLPTS3 
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REVERSE__STORE 


The REVERSE__STORE verb performs a number of assignment operations and is more efficient than 
separately specifying each assignment operation. 


The REVERSE__STORE verb assigns each address generator and expression in the following order. 
<address-generator-1 > is assigned the value of <address-generator-2>, <address-generator-2> is as- 
signed the value of <address-generator-3>, ... , <address-generator-n-1> is assigned the value of 
<address-generator-n>, and <address-generator-n> is assigned the value of <expression>. 


SDL and UPL Syntax: 
—— REVERSE_STORE (<address-generator-1>, <address-generator-2>, > 


—— < >, <address-generator-n>, <expression> ) —— 


Syntax Semantics: 


address-generator-1 thru address-generator-n 
These fields can be any valid SDL/UPL address generators where n represents any number and 
it specifies the fields that perform the multiple assignment operations. 


expression 
This field can be any valid SDL/UPL expression and it specifies the value to assign to <address- 


generator-n>. 


Example 1: _ 
PFEVERSE STORE CAr Ew “1");> % Identifier A is assigned the value 
z of identifier 8» and identifier € 
%& 18 assianed the character 1. 
Example 2: 


% Identifier A is assigned the 

% value cf identifier 8B» identifier 
4 8 is assiqned the vatue cf 

% identifier Cr» and identifier f is 
% 

% 


REVERSE _ STCRE CA» Eo Ceo CHlds 


assigned the vatue of identifier 
D+1l. 


Example 3: 


FEVERSE_ STURE % Identifier A 1s assigned the 
CA» If 1 > Z THEN & FLSE Ce % value cf either identifier 8 
CASE Wl CF CMs Ae G)eo Kids % or C depending on the result 
% of evatuatirg the excression 
A 1 > Ze Identifier B or C is 
A assiqned the value of identifier 
& Meo Neo or 0 depending on the 
% result of evaluating the 
%Z exoression Wel. Identifier Me Ne 
%Z or YQ 15 assiqned the vatue of X71. 
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REVERSE_STORE 
Example Program: 
DECLARE AC9) CHARACTER (€10)>» 


COUNTER FIXED» 
B_TIME BIT €20)>» 
A_TIME BIT (203 


COUNTER s= O7 
B_LTIME 2= PROCESSOR_TIMES 
DO FOREVER> 
REVERSE_STORE CACO)» ACL)» ACZ)» ACSI» ACS)» ACS)» ACH)» ALT)» ACB)I> 
IF CCBUMP COUNTER) = 100000) THEN UNDO? 
END? 
ALTIME = PROCESSOR_TIMEs 
DISPLAY C*®THE PROCESSOR TIME FOR PERFORMING 100000 REVERSE_STORE ™ CAT 
"OPERATIONS IS “* CAT DECIMALCCA_LTIME = BLTIME)» 4) CAT 
“ TENTHS OF SECONDS")> 


COUNTER *= Q>3 
BLTIME 2= PROCESSOR_TIMES 
DO FOREVERs 


ACO) s= AC1)Ise ACI) S= AC2])F AC2) 2= ACSIA AC3Z) F= AC4)S 
AC4) == AC5)s ACLS) 3= ACHIF ACB) 2= ACTI5 ACT 2= ACB)3 
IF CCBUMP COUNTER) = 100000) THEN UNDO> 


END» 

A_TIME == PROCESSOR_TIME> 

DISPLAY C"THE PROCESSOR TIME FOR PERFORMING 100000 SEPARATE ASSIGNMENT™ 
CAT * GQPERATIONS IS * CAT DECIMALCCA_TIME = B_LTIME)» 4) CAT 
™" TENTHS OF SECONDS"); 


STOP; 

FINI; 

% This example program compares the amount of processor time that 15s 
Z% used for the REVERSE_STORE verb and the assignment operations in 

% assigning the same amount of information. The REVERSE_STORE its 

% signiticanttly more efficient. 


Output from Example Program: 


Z REVERSEO =1283 THE PROCESSOR TIME FOR PERFORMING 100000 
REVERSE_STORE OPERATIONS IS 0745 TENTHS OF SECONDS 

%2 REVERSEG =1283 THE PROCESSOR TIME FOR PERFORMING 100000 
SEPARATE ASSIGNMENT GPERATIONS IS 0981 TENTHS OF SECONDS 
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SAVE 


The SAVE verb causes each value to be evaluated and the result to be left on the evaluation stack 
and, if necessary, the value stack. This verb is used in conjunction with the RESTORE verb. 


Incorrect entries are left on the evaluation stack if the SAVE and RESTORE verbs are performed in 
different procedures. 


SDL Syntax: 


— SAVE fo dL ): =). 


Syntax Semantics: 

value 
This field can be any valid SDL identifier or expression that returns a value and specifies the 
value to be evaluated. The result is left on the evaluation stack. 


Example: 


SAVE Cfo Bo Cds 


FESTCRE (C» be» Ads 
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SAVE__STATE 


The SAVE__STATE verb causes the state of the interpreter to be stored in the RS_M MACHINE 
field of the program run structure nucleus and to then continue execution. 


SDL Syntax: 


— SAVE_STATE; So 


Example: 


SAVE_STATES 
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SEARCH__DIRECTORY 


The SEARCH__DIRECTORY verb searches the disk directory for the requested file. If the file is 
found, information is gathered from the disk-file-header record and stored in <identifier>. 


Table 9-5 shows the format of the information returned by the SEARCH__DIRECTORY verb. The 
format and content of the table are subject to change. 


Table 9-5. Format of Information Returned from SEARCH_ DIRECTORY 


Item BIT CHARACTER 
OPEN__TYPE 24 1 
NO__USERS 24 Z 
RECORD__SIZE__IN__BITS 24 4 
RECORDS__PER__BLOCK 24 4 
EOF__POINTER 24 8 
SEGMENTS__PER__AREA 24 8 
USER__OPEN__OUTPUT 24 I 
FILE__TYPE 24 Z 
PERMANENT__FLAG 24 Z 
BLOCKS__PER__AREA 24 6 
AREAS__REQUESTED 24 3 
AREA__COUNTER 24 3 
SAVE__FACTOR 24 3 
CREATION__DATE 24 5 
LAST__ACCESS__DATE 24 5 


SDL and UPL Syntax: 
—— SEARCH_DIRECTORY ( <file-identifier, <identifier> , —— -@ Oo: oo oom ——————xcqxqzr 


Oe eee I he ee ee 
CHARACTER ON FILE_MISSING <statement-1> ; 
fein ON FILE_LOCKED <statement-2>; pee! 


Syntax Semantics: 


file-identifier 
This field can be any valid SDL/UPL 30-character file identifier. The first 10 characters of < file- 
identifier > specify the pack identifier, the middle 10 characters specify the family identifier, and 
the last 10 characters specify the file identifier. 


A one name file identifier must be left-justified in the middle 10 characters of < file-identifier>. 


All 30 characters must contain data, with each name left-justified and blank-filled on the right 
to the full 10-character length. 
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identifier 
This field can be any valid SDL/UPL identifier that has a BIT or CHARACTER data type. If 
the data type is BIT, the identifier must be 360 bits long. If the data type is CHARACTER, 
the identifier must be 59 bytes (characters) long. 


BIT 
The keyword BIT causes the disk directory information to be stored in the identifier with a BIT 
data type. 


CHARACTER 
The keyword CHARACTER causes the disk directory information to be stored in the identifier 
with a CHARACTER data type. 


ON FILE__MISSING 
The keywords ON FILE MISSING cause <statement-1> to be performed if the file specified 
by <file-identifier> is not found in the disk directory. 


ON FILE_LOCKED 
The keywords ON FILE__LOCKED cause <statement-2> to be performed if the file specified 
by <file-identifier> is locked. 


statement-1 
This field can be any valid SDL/UPL statement and it is performed if the file specified by < file- 
identifier > is not found. 


statement-2 


This field can be any valid SDL/UPL statement and it is performed if the file specified by < file- 
identifier > is locked. 
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O01 DISK_FILE_HEADER CHARACTER 
03 OPEN_TYPE CHARACTER 
03 NO_USERS CHARACTER 
03 RECORD_SIZE CHARACTER 
03 RECORDS_PER_BLOCK CHARACTER 
03 EOF_POINTER | CHARACTER 
03 SEGMENTS_PER_AREA CHARACTER 
03 USER_OPEN_OUTPUT CHARACTER 
03 FILE_TYPE CHARACTER 
03 PERMANENT_FLAG CHARACTER 
03 BLOCKS _PER_AREA CRARACTER 
03 AREAS_REQUESTED CHARACTER 
03 AREA_COUNTER CHARACTER 
03 SAVE_FACTOR CHARACTER 
03 CREATION_DATE CHARACTER 
03 LAST_ACCESS_DATE CHARACTER 
FILE_NAME CHARACTER 
SYSTEM BACKUP 


FILE_NAME t= * 


SEARCH DIRECTORY CFILE_NAME» DISK_FILE_HEADER > 


ON FILE_MISSING DOs 


SEARCH_DIRECTORY 


Pw 


CHARACTER)? 


DISPLAY C™SYSTEN/BACKUP NOT PRESENT"), 
DISPLAY ("GOOD BYE"); 


STOPS 
ENDs 


ON FILE_LOCKED DO> 


DISPLAY 
DISPLAY 
DISPLAY 
DISPLAY 
DISPLAY 
DISPLAY 
DISPLAY 
DISPLAY 
DISPLAY 
DISPLAY 
DISPLAY 
DISPLAY 
DISPLAY 
DISPLAY 
DISPLAY 
DISPLAY 
DISPLAY 


STOP? 
FINI> 
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DISPLAY C™SYSTEWM/BACKUP IS LOCKED"); 
DISPLAY C"GOOD EYE); 


STOP> 
ENDs 


C"THE FOLLOWING IS THE DISK FILE HEADER FOR SYSTEM/BACKUP™)s 
C"OPEN TYPE EQUALS ™ CAT GPEN_TYPE)> 
C"NUMBER OF USERS EQUALS ™ CAT NO_LUSERS)s 

C"RECORD SIZE EQUALS * CAT RECORD_SIZE CAT * BITS")? 
C*RECORDS PER BLOCK EGUALS “ CAT RECORDS_PER_BLOCK); 
C"END OF FILE EQUALS * CAT ECF_POINTERD>s 

" CAT SEGMENTS _PER_ARE A)? 
C*USER OPEN OUTPUT EQUALS ™ CAT USER_OPEN_OQUTPUT)>s 
C"FILE TYPE EQUALS ™ CAT FILE_TYPE); 
C"PERMANENT FLAG EQUALS “™ CAT PERMANENT_FLAG)>; 

("BLOCKS PER AREA EQUALS ™ CAT BLOCKS _PER_AREA)> 

C"NUMBER OF AREAS REQUESTED EQUALS ™ CAT AREAS_RE QUE STED)> 
C"NUMBER OF AREAS EQUALS * CAT AREA_COUNTER)D> 

C"™SAVE FACTOR EQUALS ™ CAT SAVE_FACTOR)>s 

C"CREATION DATE EQUALS “* CAT CREATION_DATE)>» 

C"LAST ACCESS DATE EQUALS ™ CAT LAST_ACCESS_DATE)> 


C"SEGMENTS 


("Good 


BYE" )> 


PER AREA EQUALS 
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Output from Example Program: 


SEARCHO =1370 BOJ.- PP=4» MP=4 TIME = 142062312 


x 
z 
z 
4 
a 
z 
y 4 
z 
z 
pA 
% 
4 
z 
z 
zx 
z 
S 


SEARCHO 
SEARCHO 
SEARCHO 
SEARCHO 
SEARCHG 
SEARCHO 
SEARCHO 
SEARCHO 
SEARCHO 
SEARCHO 
SEARCHO 
SEARCHO 
SEARCHO 
SEARCHD 
SEARCHO 
SEARCHO 
SEARCHO 
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=137) 
=1370 
=1370 
=1379 
=1370 
=1370 
=1370 
=1370 
=1370 
=1370 
=1370 
=1370 
=1370 
=1370 
=1370 
=1370 
=1370 


THE FOLLOWING [S THE DISK FILE HEADER FOR SYSTEM/BACKUP 
OPEN FYPE EQUALS O 

NUMBER OF USERS EQUALS 01 

RECORD SIZE EQUALS 1440 

RECORDS PER BLOCK EQUALS 0001 

END OF FILE EQUALS CC000092 

SEGMENTS PER AREA EQUALS 00000092 
USER OPEN OUTPUT EQUALS 0 

FILE TYPE EQUALS 08 

PERMANENT FLAG EQUALS 01 

BLOCKS PER AKEA EQUALS 000092 

NUMBER OF AREAS REQUESTED EQUALS O01 
NUMBER OF AREAS EQUALS 001 

SAVE FACTOR EQUALS OCO 

CREATION DATE EQUALS 79312 

LAST ACCESS DATE EQUALS 80136 

GOOD BYE 


EARCHO =1370 EQJ. TIME = 1420625625 
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SEARCH__LINKED__LIST 


The SEARCH__LINKED__LIST verb compares the value specified by <compare-value> with <com- 
pare-field>. If the comparison does not satisfy the relation, the next structure specified by <link- 
field> is used for the next comparison. This is an efficient way to search through a list of structures 
for a specific structure. 


If the search succeeds, a 24-bit value is returned which is the base-relative address of the current struc- 
ture. If the search fails, the value @FFFFFF@ is returned. 


The last structure in the list must have all the bits equal to | for <link-field>. 


SDL and UPL Syntax: 
—— SEARCH_LINKED_LIST (<first-item>, <compare-field> , -———_—-_____________> 


>——  <compare-value>, <relation>, <link-field> ) ; ooo 


Syntax Semantics: 


first-item 
This field can be any valid SDL/UPL identifier or expression that returns a value and specifies 
the first structure to be examined. 


compare-field 
This field is a template which specifies the relative offset and size in the structure of the 24-bit 
field being compared with <compare-value>. A template is an identifier whose address is 
relative to the beginning of a structure rather than base relative. A field in a structure declared 
REMAPS BASE has such an address. 


compare-value 
This field is the value that is compared with <compare-field>. <compare-value> is considered 


‘‘on the left’? in the compare relation. 


relation 
This field specifies the desired relation in the comparison of <compare-field> and <compare- 
value>. The following is a list of the valid relation specifiers. 


Relation Description 

< less than 

<= less than or equal to 

= equal to 

[= not equal to 

>= greater than or equal to 
> greater than 

LSS less than 

LEQ less than or equal to 


EQL equal to 

NEQ not equal to 

GEQ greater than or equal to 
GTR greater than 
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link-field 
This field is a template which specifies the relative offset and size in the structure of the 24-bit 
(or less) field that contains the address of the next structure to be examined. <link-field> is 
examined if the comparison with the current structure failed. A template is an identifier whose 
address is relative to the beginning of a structure rather than base relative. A field in a structure 
declared REMAPS BASE has such an address. 


Example: 


BASE_RELATIVE_ADDR == 
SEARCH_CLINKED_LIST CFIRST_ADDRESS» 
COMPARE_FIELD» COMPARE_VALUE> 

=» NEXT_LLINK); 


Identifier BASE_RELATIVE_ADDR 
is assigned the baserrelative 
address of the structure that 
the search compieted on and is 
assigned the vatue @FFFFFFa if 
the search failed. 


NRNRM ARE 


9-156 


B 1000 Systems SDL/UPL Reference Manual 


Verbs 
SEARCH_LINKED_LIST 
Example Program: 
RECORD TABLE 
DATA FIXED» 
KEY FIXED» 
LINK BIT €24)3 
DECLARE ODT_INPUT CHARACTER (€4)>» 
COUNT FIXED» 
RESULT FIXED» 
COMPARE_VALUE FIXED» 
T €1024) TABLE> 


COUNT 2= 03 
DO BUILD_LINKS FOREVER? 
IF COUNT = 1023 THEN UNDO BUILD_LINKSS 
TCCOUNT) «KEY 2= COUNT? 
TCCOUNT)*DATA 2= CTIME CCOUNTER» EIT) MOD 102493 
TCCOUNT) «LINK 2= DATA_ADDRESS CTCBUMP COUNT) .DATA)3 
END BUILD_LINKS#s 
TCLO235)eLINK 2= QFFFFFFa3 


DO FOREVER? 
DISPLAY C™ENTER ANY NUMBER FROM O TO 1023 OR ENTER BYE FOR E0J"™)3 
ACCEPT ODT_INPUT? 
IF OOT_LINPUT = "BYE" 
THEN DOS 
DISPLAY ("GOOD BYE"); 
STOPS 
ENDS 
COMPARE_VALUE 2= CONVERT CODT_INPUT» FIXED)3 
IF COMPARE_VALUE > 1023 
THEN DISPLAY CODT_INPUT CAT ™ IS TOO LARGE™)3 
ELSE IF COMPARE_VALUE < 0 
THEN DISPLAY CODT_INPUT CAT * IS TOO SMALL")3 
ELSE DOs 


RESULT *= SEARCH _LINKED_LIST CTCO)> KEYLOI> 
COMPARE_VALUE» =» LINKL0))3 


IF RESULT = @FFFFFF 3 
THEN DISPLAY C*SEARCH FAILED"); 
ELSE DISPLAY C"KESULT EQUALS * CAT 
CONVERT CRESULT» CHARACTER))> 
END» 
END> 
FINI; 
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This example program shows one way to use the SEARCH_LINKED_LIST 
verb. The program first builds a linked List using a table. 

The operator 1s then requested to enter any number between 0 

and 1023. Using the accepted value» the program searches through 
the tinked list for an equal condition andr if founds displays 

the base relative address of the beginning of the tabie entry that 
it found. If the search fails» the program displays SEARCH FAILED. 
If @YE is entered» the program goes to end of job. 


B 1000 Systems SDL/UPL Reference Manual 
Verbs 


SEARCH _SDL_STACKS 
SEARCH__SDL__STACKS 


The SEARCH__SDL__STACKS verb searches for a non-array or non-self-relative SDL descriptor 
whose address is within the given range of <compare-base> and <compare-top>. If the search is 
successful, @(1)1@ is returned. If the search is not successful, @(1)0@ is returned. 


The SEARCH__SDL__STACKS verb is used by the SDL memory management intrinsics to determine 
which segments in memory can be rolled out to disk. 


SDL Syntax: 


—— SEARCH_SDL_STACKS (<stack-base>, <stack-top>, <compare-base>, —#——____-____> 


>————— <ccompare-top> ) a 


Syntax Semantics: 


stack-base 
This field can be any valid SDL literal, identifier, or expression that returns a value and specifies 
the beginning address of an SDL stack. 


stack-top 
This field can be any valid SDL literal, identifier, or expression that returns a value and specifies 
the address of the top of an SDL stack. 


compare-base 
This field can be any valid SDL literal, identifier, or expression that returns a value and specifies 
the address within the program at where the search is to begin. 


compare-top 
This field can be any valid SDL literal, identifier, or expression that returns a value and specifies 
the address within the program at where the search is to end. 


Example: 
CECLARE LOWER EIT €24).» 
UPFER EIT €24)6 
RESULT FIT €1d3 
LOWER t= O- 
UPPERs= 100003 


FESULT z= SEARCH SLL_STACKS CCONTROL_STACK_TOP # CONTROL_STACK_B8ITS> 
CUNTRUL_STACK_ TOP> LOWER» UPPER); 


If NOT SESULT THEN DISFLAY C™SEARCH NOT SUCCESSFUL"); 
ELSE DISFLAY C"SEAFCH SUCCESSFUL"); 

STUPs 

FIN: 
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The SEARCH__SERIAL__LIST verb searches a serial list of items beginning with the structure de- 
scribed by <first-item>. <compare-value> is compared with <compare-field> using the relation 
specified by <relation> until a match is found, or until <table-length> number of bits have been 
searched. 


If <relation> is non-commutative, for example <, <=, >, >=, LSS, LEQ, GTR, or GEQ, the 
comparison is made as though <compare-value> is on the left of the relation. 


If the search succeeds, the base-relative address of the item containing the successful <compare-field > 
is stored into <result-identifier> and the value @(1)1@ is returned. If the search fails, the end base- 
relative address of the table is stored into <result-identifier> and the value @(1)O is returned. 


SDL Syntax: 


—— SEARCH_SERIAL_LIST (<compare-value>, <relation>, <compare-field> ———o_——_——_-_——_—_—___> 
>, <first-item>, <table-length>, <result-identifier> ) ; ———_| 


Syntax Semantics: 


compare-value 
This field is the value that is compared with <compare-field>. <compare-value> is considered 
the left portion of a compare relation. 


relation 
This field specifies the desired relation in the comparison of <compare-field> and <compare- 
value>. The following is a list of the valid relation specifiers. 


Relation Description 

< less than 

<= less than or equal to 

= equal to 

i= not equal to 

= greater than or equal to 
> greater than 

LSS less than 

LEQ less than or equal to 
EQL equal to 

NEQ not equal to 

GEQ greater than or equal to 


GTR greater than 


compare-field 
This field is a template that gives the relative offset and size in the structure of the 24-bit field 
being compared with < compare-value >. A template is an identifier whose address is relative to 
the beginning of a structure rather than base relative. A field in a structure declared REMAPS 
BASE has such an address. 


first-item 
This field can be any valid SDL identifier or expression that returns a value and specifies the 
first structure to be examined. 
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table-length 


This field can be any valid SDL literal, identifier, or expression that returns a value and specifies 
the number of bits to search before stopping the search. 


result-identifier 


This field can be any valid SDL 24-bit identifier and contains the value of the end base-relative ad- 
dress of the table. 


Example Program: 


RECORD TABLE 
DATA FIXED» 
KEY FIXED» 
LINK BIT (24)> 


DECLARE ODT_INPUT CHARACTER (4)> 
COUNT FIXED» 
RESULT FIXEDs 
COMPARE_VALUE FIXED» 
T (1024) TABLES 


COUNT <= O- 
DO BUILDLLINKS FOREVER? 
If COUNT = 1023 THEN UNDO BUILO_LINKS; 
TCCOUNTI KEY 2= COUNTs 
TCCOUNT)ISDOATA z= CTIME CCOUNTERe SIT) MOD 1024), 
TCCOUNT) LINK == DATA_ADDRESS CTCEUMP COUNT)-DATA)s 
END BUILD_LINKSs 
TC1023)-LINK 3= QFFFFFF as 


DO FOREVERs 
DISPLAY C™ENTER ANY NUMBER FROM © TO 1023 OR ENTER BYE FOR £0J")3 
ACCEPT ODT_INPUTS 
IF ODT_INPUT = "BYE" 
THEN DOS 
DISPLAY ("GOOD BYE"); 
STOP? 
END? 
COMPARE_VALUE 2= CONVERT CODI_INPUT» FIXED); 
IF COMPARE_VALUE > 1023 
THEN DISPLAY CODT_INPUT CAT " IS TOO LARGE"); 
ELSE IF COMPARE_VALUE < 0 , 
THEN DISPLAY CODT_INPUT CAT * IS TOU SMALL™)3 


ELSE IF SEARCH SERIAL_LIST CCOMPARE_VALUE» =» KEYCO]>» 
TCO)» 73728» RESULT) 


THEN DISPLAY C"RESULT EQUALS ™ CAT 
CONVERT CRESULT» CHARACTER) )>» 
ELSE DISPLAY ("SEARCH FAILED™)> 
END» 
FINI; 
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This example program shows one way to use the SEARCH_SERIAL_LIST 
verbe The program first builds a serial Linked tist using a table. 
The operator is then requested to enter any number between 0 

and 1023-6 Using the accepted vatues»r the program searches through 
the linked list for an equai condition ande if founds displays 

the baserrelative address of the beginning of the table entry that 
it found. If the search fails» the program displays SEARCH FAILED. 
If BYE is entered» the program goes to end of job. 
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The SEEK verb performs an actual hardware read and then stores the data in a buffer until the data 
is requested by a read operation. Use of the SEEK verb allows a programmer to overlap input/output 
(I/O) operations with processor operations. 


When reading a file randomly and the next random record is known, the SEEK verb can be used to 
efficiently read random files. Specifying the SEEK verb immediately prior to a READ verb is less effi- 
cient than specifying the READ verb. 


SDL and UPL Syntax: 


—— SEEK <(file-identifier > [<record-address-identifier >] ; —_ 


Syntax Semantics: 


file-identifier 
This field can be any valid SDL/UPL file identifier and it specifies the file in which to perform 
the seek operation. 


record-address-identifier 
This field can be any valid SDL/UPL identifier and specifies the record address within the file 
to seek. This identifier must be either a binary value of 24 bits or fewer in length, or an expres- 
sion that generates a binary value. 


Example: 


SEEK DLSKFILE C100]; 


nw 


Causes 3 ohysical read of record number 

190 from the disk file DISKFILE. The data 
read is not made avaitante until the orogram 
cerfcrms a FREAD statement. 


wn ne 
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' Example Program: 
DECLARE DATA BIT €400)» 
ODT_INPUT CHARACTER (€50)» 


RECORD _ ADDRESS FIXED; 


FILE DISKFILE CDEVICE = DISK RANDOM> 
RECORDS 180/10» 
BUFFERS 10)> 


out 


RECORD_ADDRESS <:= 03 
OPEN DISKFILE INPUTs 
SEEK DISKFILE TRECORD_ADDRESSI> 


DO FOREVER» 


DISPLAY C"ENTER BLANK TO DISPLAY THE NEXT RECORD OR BYE FOR E0U")3 
ACCEPT ODT_INPUTs 
IF ODT_INPUT = “BYE™ THEN DOS 

DISPLAY C"GOOD BYE"); 


STOP? 
END; 
READ DISKFILE CRECORD_ADDRESS] CDATA)> 
ON EOF DOs 
DISPLAY C*"END OF FILE ENCOUNTERE) ~~ GOOD BYE™)s; 
STOPS 
END> 


ON EXCEPTION DISPLAY C™RECORD “ CAT RECORD_ADDRESS CAT 
" NOT FOUND™)s 
BUMP RECORD_ADDRESS> 


SEEK DISKFILE CRECORD_ADDRESSIs 


DISPLAY CCONVERTCDATA» CHARACTER ))> 
END> 


FINI; 


This example program uses the SEEK verb to physically read 

a record into the program's file buffers» and upon entering a blank 
messages the program performs a read operation to obtain 

the record. Once the program performs a read operations the 
program uses the SEEK verb to physically read the next record 

and displays the data within the record that was previously read. 


NRNMN HRN N 
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SEGMENT__PAGE 


The SEGMENT__PAGE verb divides the object code of a program into overlayable sections. When 
writing SDL/UPL programs, the programmer must explicitly segment programs if overlaying is to be 
allowed. If no SEGMENT__PAGE verbs appear, the entire program is compiled as one code segment. 
Run-time memory requirements for a program decrease when that program is segmented, because not 
all code segments must be resident in memory simultaneously. 


When a program references a nonresident code segment, that code segment must be moved into main 
memory from disk. If no memory space is available, the newly called code segment is written (overlaid) 
into the space occupied by a less important code segment. The IMPORTANT keyword gives a code 
segment more protection from being overlaid. 


The SEGMENT__PAGE verb can appear anywhere within an SDL/UPL program. The maximum num- 
ber of code segments per page is 64. The maximum number of pages per program is 32. 


There are two types of segmentation: permanent and temporary. Every SDL/UPL statement following 
a permanent segment statement is compiled to that code segment until another segment statement is 
encountered, Nonconsecutive groups of SDL/UPL statements can be compiled to the same code seg- 
ment by specifying the same <segment-identifier > for each. The following example illustrates the use 
of the permanent segment statement. 


SEGMENT_PAGE (XX); 
CECLARE Al» A2»> A3> Ab; 
PROCERURE M3 
DECLARE tar B2r 833 
SEGHMENT_PAGE CYY)3 
PROCECURE NB 


ENS Ns 
PRKCCECURE Ps 


END P3 
SEGMENT_PAGE €XX)3 
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Only procedures N and P have been compiled to the code segment labeled YY. The code segment la- 
beled XX is segment zero and includes the remainder of the program. A SEGMENT__PAGE verb is 
temporary when it precedes any of the following verbs. 


ACCESS__FILE_INFORMATION RECEIVE 


CASE SEARCH__DIRECTORY 
IF SEND 

OPEN SPACE 

READ WRITE 


The following example illustrates the use of temporary segmentation when an IF statement is specified. 


SEGMENT_PAGE (A); 
PEUCECURE X3 


IF Y > 7 

THEN Y t= Z3 

ELSE SEGMENT C&D, 

CG SGME_FUACTICN? % 

4 The Outaqrcuo 
‘ % SCME_FUNCTIUN ts 
: 4 compited to cade 
ENO SOME _FUNCTICNs % seqment 8. 
END X> 


The DO-group SOME__FUNCTION in the preceding example is compiled into code segment B. Seg- 
ment B automatically ends when the DO-group SOME__FUNCTION is terminated. All statements fol- 
lowing the DO-group SOME__FUNCTION are compiled to segment A. Segment A is a permanent seg- 
ment and segment B is a temporary segment. 


DO-groups and procedures must begin and end in the same code segment. If this is not the case, the 


SDL/UPL compiler generates the following warning message and inserts code into the SDL/UPL pro- 
gram to bring the program back to the proper segment so that the DO-group and procedure can be 


exited correctly. 
‘DO GROUP”? SHOULD TERMINATE IN SEGMENT IN WHICH IT BEGAN 
PROCEDURE SHOULD TERMINATE IN SEGMENT IN WHICH IT BEGAN 

Refer to the MCP MEMORY MANAGEMENT Appendix in the B 1000 Systems System Software 


Operation Guide, Volume 1, form number 1108982, for complete information on the Memory Manage- 
ment System. 
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SDL and UPL Syntax: 
—— SEGMENT_PAGE (<segment-identifie.=> —--—- AA _———_——> 


1 


, IMPORTANT 
OF <page-identifier> 


Syntax Semantics: 


segment-identifier 
This field can be any valid SDL/UPL identifier and specifies the name of a segment. 


IMPORTANT 
The keyword IMPORTANT causes the program code segment to remain in main memory. The 
segment is overlaid when the MCP requires additional memory space and no other portion of 
main memory is available for use. 


OF 
The keyword OF specifies that the <page-identifier> is to follow in the specification of the 
SEGMENT__PAGE verb. 


page-identifier 
This field can be any valid identifier and specifies the page in which the segment is to belong. 


Example |: 
SEGMCNT_PAGE CZERO); % ASSIQNS the OU"group A to the 
CG As % code seaqment tabeted ZERG. 
ENO A> 
Example 2: 


Assitians the nrocedure PROC _X 
to the code segment identified 
as TWO. This code seqment is 
important. 


SEGMENT _PAGE CTWO» IMPCRTANT)> 
PSCCEQURE PROC _X; 


* 


re re xt 


END PRCC_X; 


Example 3: 
SEGMENT PAGE CTWU» IMPCRIANT OF PAGE _1)% ZX Assigns PrOC_E to the 
PRUC_ Ds * segment tabeted TWO. 
* % AtsSo» this seqment is ar 
° % important seqment of the 
. *% oagqe Labeted PACE 1. 
END Cs 
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Example Program: For an example of the use of the SEGMENT__PAGE verb, refer to the LOCA- 
TION verb. 
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SKIP 


The SKIP verb causes the line printer to skip to a specified channel number on the carriage control 
tape. These channel numbers correspond to holes punched in the carriage control tape. The channel 
numbers control the vertical spacing of records on a printed page and are defined by the carriage con- 
trol tape on the printing device. 


—— SKIP <file-identifier> TO <channel-number>; | 


Syntax Semantics: 

file-identifier 
This field can be any valid SDL/UPL file identifier that is declared with a device type equal to 
PRINTER and specifies the file to perform the skip operation. 

channel-number 
This field can be any valid SDL/UPL number between 1 and 12, inclusive and specifies the chan- 
nel number to skip to on the carriage control tape. 


Example 1: 


SKTF LiN€ TO ts 


x 


The file tabeled LINE must be an outout file 
cn the printing device. The printing device 
acvarces to channel 1 Cusuatly the top of a 

new page). 


ae re 


Example 2: 


SKIP PRNYT TO 123 % The crintina device advances to channel 12 
% Cusuathly at or near the end of a page). 
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Example Program: 
DECLARE ODV_INPUT CHARACTER (50)53 


FILE LINE CDEVICE = PRINTER» 
RECORDS =132/1)» 


OPEN LINE OUTPUT? 
DO FOREVERs 
DISPLAY C"ENTER CHARACTERS FOR THE PRINTER OR BYE TO GO TO E0J")s 
ACCEPT ODT_INPUT> 
TF ODTLINPUT = "BYE" THEN DO? 
DISPLAY ("GO00 BYE"), 
STOP> 
ENDs 
SKIP LINE TO i> 
WRITE LINE CODT_INPUT)> 
ON EXCEPTION DOs 
DISPLAY C"EXCEPTION ON WRITE =~ GOOD BYE™)> 
STOP> 
ENDs 
ENDs 


FINT> 


Z This example program accepts a record from the O0T and uses the 
% SKIP verb to advance to channel 1 on the printing device prior 
% to writing a record. Enter BYE to send the program to end of job. 
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SORT 
The following B 1000 utility programs can be invoked by the SORT verb. 


SORT/MERGE 
SORT/QSORT 
SORT/TAPESORT 
SORT/VSORT 


These utility programs sort the specified input file and create the output file. <key-table> specifies 
the collating sequence desired in the sort. <sort-information-table> describes the options the sort is 
to use. Refer to B 1000 Systems SORT Reference Manual, form number 1090594 for a complete de- 
scription of the B 1000 sort mechanism. 


SDL and UPL Syntax: 


—— SORT (<sort-information-table>, <key-table> , ———————— 
>———— <input-file-identifier> , <output-file-identifie==> = ————___— > 


a ae ); ———-—- 
en translate-file-identifier> 


Syntax Semantics: 


sort-information-table 
This field specifies the information required to sort a file. Refer to the B 1000 Systems SORT 
Reference Manual, form number 1090594, for the description and the format required in <sort- 
information-table>. 


key-table 
This field specifies the sort key information required to sort a file. Refer to the B 1000 Systems 
SORT Reference Manual, form number 1090594, for the description and the format required for 
the <key-table>. 


input-file-identifier 
This field can be any valid SDL/UPL file identifier that is declared in the file declaration section, 
and specifies the file in which to sort. 


output-file-identifier 
This field can be any valid SDL/UPL file identifier that is declared in the file declaration section, 
and specifies the resulting file identifier of the sorted file. 

translate-file-identifier 
This field can be any valid SDL/UPL file identifier and specifies the file to use for translating 
purposes. 


Examples: 


SCkT CINFOCR TASLE» KEY TAELE» IN_FILE» OUT_FILE)D; 
SURT CINFCR TABLE» KEY TAGLE>s IN FILE» OUT_LFILE» TRANS_FILE); 
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Example Program: 
DECLARE ODT_INPUT CHARACTER C10)» 
O1 SORT_LINFORMATION_TABLE> 
02 SORT_TYPE BIT C2)» 
02 SORT_HDWR BIT €6)- 
02 SORT_FILES BIT (24)» 
O02 SORT_RECSIZE BIT €24)» 
02 SORT_IN_HOWR BIT (6)» 
02 SORT_LIN_RECSIZE BIT €24)» 
02 SORT_LIN_BLKUSIZE BIT (24). 
02 SORT_LIN_CLOSE BIT €12)>» 
02 SORT_IN_VARTIABLE BIT C1)» 
02 SORT_OUT_HDWR BIT (€6)> 
02 SORT_OUT_RECSIZE BIT (€24)>» 
02 SORT_LOUT_BLKSIZE BIT €24)» 
02 SORT_OUT_CLOSE BIT €12)> 
02 SORT_OUT_VARIABLE BIT €1)- 
02 SORT_DELETING BIT C1)» 
02 SORT_STABILIZE BIT €1)» 
02 SORT_PARITY BIT C1)» 
02 SORT_RESTART BIT €1)» 
02 SORT_BIAS BIT (7)» 
02 SORT_RECORDS BIT €24)>» 
02 SORT_TIMING BIT C1)» 
02 SORT_NUMBER_KEYS BIT (€5)» 
02 SORT_TIME_IT BIT €1)> 
02 SORT_IN_OVERRIDE BIT C€C1)» 
02 FILLER BIT (6)>» 
02 SORT_KEY_LENGTH BIT (€16)» 
02 FILLER BIT €16)- 
02 SORT_PARTITION BIT €24)> 
02 SORT_DELETE_KEYS BIT €4)>» 
02 SORT_DUPCHECK BIT €1)» 
02 SORT_TAGRPG BIT C1)» 
O02 SORT_W1_PID BIT C1)» 
02 SORT_W2_PID BIT C1)» 
02 SORT_TAGCOBOL BIT (1-6 
02 FILLER BIT C15)» 
02 SORT_MEMORY BIT 24)» 
02 SORT_TAGSEARCH BIT (1). 
02 SORT_COLLATE BIT (€1)» 
02 FILLER BIT (31). 
02 SORT_RESTART_JOB BIT (€24)» 
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01 
02 


ol 


FILE IN 
OUT 


SORT_TYPE 
SORT_HDWR 
SORT_FILES 
SORT_RECSIZE ? 
SORT_IN_HDWR 3 
SORT_IN_RECSIZ 
SORT_IN_BLKSIZE : 
SORT_IN_CLOSE 
SORT_IN_VARIABLE 
SORT_OUT_HDWR 
SORT_OUT_RECSIZE 
SORT_OUT_BLKSIZE 
SORT_OUT_CLOSE 


= Q 
t= atl 
2= ? 
c 


? 
{ 
0 
a 


SORT_OUT_VARIABLE 


SORT_DELETING ? 
SORT_STAEILIZE 
SORT_PARITY 
SORT_RESTART 
SORT_BIAS 2= 
SORT_RECORDS 
SORT_TIMING = a 
SORT_NUMBER_KEYS 
SORT_TIME_IT 
SORT_IN_OVERRIDE 
SORT_KEY_LENGTH 
SORT_PARTITION 
SORT_DELETE_KE 
SOR T_DUPCHECK 
SORT_TAGRPG 
SORT_W1_PID 
SORT_W2_PID 
SORT_TAGCOBO 
SORT_MEMORY 
SORT_TAGSEAR 
SORT_COLLATE 
SORT_RESTART_ 


0 


fi #2 @) be fj 


1 


hos il 


Ow f 
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SORT_KEY_TABLE 
KEY (30) 


KEY_FIELD 

SIGN FLAG 
DIRECTION 

FILLER 
COLLATE_KEY 
KEY_LENGTH 
KEY_DISPLACEMENT 


CDEVICE 
RECORDS 


CDEVICE 
RECORDS 


20100014, 


a 
3 


, ad 
am 


° 
‘a 


, 
0 
) 
a 
( 
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BIT 
BIT 


€1116)>» 
C36)» 


BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 


( 36)» 
C1)» 
C1)» 
C1)» 
C1)» 
C12)» 
(20); 


— 
— 


DISK» 
180/1)>» 


OISKs 
180/1)> 


% USE SORT/VSORT 
Z USE OITSK FOR WORK FILES 
% NO WORK TAPES 
OOOSA0Qs % MAX RECORD SIZE 
€1)01000195 2% DISK 
BOO0O0SA0Q> ZX RECORE SIZE 180 
AOO000AAF Z% BLOCK SIZE 10 
a4000% 2% CLOSE WITH RELEASE 
>= OF Z NOT VARTABLE RECORDS 
9€1)01000105 % DISK 
QOOO5SA0A> % RECORDSIZE = 180 
VOO0Q00AAF ZX BLOCKSIZE 10 
a40005 %Z% CLOSE WITH RELEASE 
OF % NOT VARTABLE RECORDS 
% NO DELETING 
Z SORT DUPLICATES IN ANY ORDER 
DO NOT DISCARD RECORDS WITH PARITY ERROR 
% NO RESTART 
011901084 7% 50 PERCENT 
QOOO3E8As ZY 1000 RECORDS 
1)18¢ % REPORT SORT PARAMETERS 
aCivOOO0LaA® 2% 1 KEY 
% DISPLAY SORT TIME ON ODT 
0 % 00 NOT USE INPUT BLOCKING 
SQ0Qa% % KEY LENGTH 80 BITS OR 10 BYTES 
% NO PARTITION 
O> % NO INCLUDE OR DELETE KEYS 
Cl la- % REPORT DUPLICATE RECORDS 
% NOT RPG TAG FILE 
% NO WORK PACK 
% NO WORK PACK 
% NOT COBOL TAG FILE 
S3EOQQ% % 300000 BITS OF MEMORY 
% NO TAG SEARCH 
NG COLLATE FILE 
Z NO RESTART 


180 


a pas 


— 
_ 


oo — 
ad 


0; 
03 
z 


BIAS 


oe wa» 
oo= 


—_ 
_ = 


a 
Op 


&> ss 
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SIGN_FLAG *= 053 % NOT SIGNED 
DIRECTION t= 0% Z% ASCENDING ORDER 
COLLATE_KEY s= % NO COLLATE TABLE 


KEY_LENGTH 


0; 
s= 250ad5 % KEY LENGTH = &0 BITS OR 10 BYTES 
KEY_NISPLACEMENT = 


2000000 ZF KEY STARTS IN FIRST POSITION 


Zz Hose 
img} 


KEY (0) = KEY_FIELD3 


DO FOREVER; 
DISPLAY C™ENTER INPUT FILE NAME OR ENTER BYE FOR E0U")3 
ACCEPT ODT_INPUTS 
IF ODT_INPUT = "BYE" THEN 903 
DISPLAY C"GOODBYE")3 
STOP; 
ENDS 
CHANGE IN TQ CMULTI_FILE_ID = ODT_INPUT)3 
DISPLAY C™ENTER OUTPUT FILE NAME OR ENTER BYE FOR E0N")3 
ACCEPT ODT_INPUTs 
IF ODT_INPUT = "BYE" THEN DOs 
DISPLAY C*"GOODBYE")3 
STOP? 
END? 
CHANGE OUT TO CMULTI_FILE_ID := OLT_INPUT)? 
SORT CSORT_INFORMATION_TABLE» SORT_KEY_TABLE» IN» OUT)3 
END? 
FINI; 


This example program shows the information required to 

use the SORT verb.j The program accepts from the ODT a 
l10“character file name for the input fite and then accepts 

a second 10-character file name for the output file. The 
input file must have a record size equal to 180 and blocking 
factor equal to le If BYE is entered» the orogqram goes to 
end of job. Once the two file names are entered» the program 
invokes the SORT/VSORT sort utility program and sorts the 
file. 
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SORT_MERGE 


SORT__MERGE 


The SORT__MERGE verb invokes the SORT/MERGE utility program. The SORT/MERGE program 
merges the specified input files and creates the output file. <key-table> specifies the collating sequence 
desired in the sort. <sort-information-table> describes the options the merge is to use. <merge-input- 
table> provides the relative file numbers of the files within the SDL/UPL program to merge. Refer 
to the B 1000 Systems SORT Reference Manual, form number 1090594, for a complete description of 
the B 1000 merge mechanism. 


SDL and UPL Syntax: 


—- SORT_MERGE (<sort-information-table>, <key-table>, -———————— > 
>—————_ <_merge-input-table> , <output-file-identifies> ——£ > 


fe ee 
, <translate-file-identifier> 


Syntax Semantics: 


sort-information-table 
This field specifies the information required to sort a file. Refer to the B 1000 Systems SORT 
Reference Manual, form number 1090594, for the description and the format required in <sort- 
information-table>. 


key-table 
This field specifies the sort key information required to sort a file. Refer to the B 1000 Systems 
SORT Reference Manual, form number 1090594, for the description and the format required for 
<key-table>. . 


merge-input-table 
This field specifies the information required to sort a file. Refer to the B 1000 Systems SORT 
Reference Manual, form number 1090594, for the description and the format required for 
<merge-input-table>. <merge-input-table> specifies the relative file number within the SDL/ 
UPL program to merge. A maximum of eight files can be merged. 


output-file-identifier 
This field can be any valid SDL/UPL file identifier that is declared in the file declaration section. 
It specifies the resulting file identifier of the sorted file. 

translate-file-identifier 
This field can be any valid SDL/UPL file identifier and specifies the file to use for translating 
purposes. 


Example: 


SORT_MERGE CINFOR_TAELE»® KEY_TABSLE» MERGE _INPUT_TABLE» CUT_FILE); 
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Verbs 
SORT_MERGE 
Example Program: 
DECLARE ODT_INPUT CHARACTER (€10)>» 

COUNTER FIXED» 

Ol SORT_INFORMATION_TABLE> 
02 SORT_TYPE BIT C2)» 
02 SORT_HDWR BIT C6)» 
02 SGRT_FILES BIT €24)>» 
O02 SORT_RECSIZE BIT €24)-» 
02 SORT_IN_HOWR BIT C6)> 
02 SORT_LIN_RECSIZE BIT €24)» 
02 SORT_IN_BLKSIZE BIT €24)» 
02 SORT_IN_CLOSE BIT €12)» 
02 SORT_LIN_VARI ABLE BIT C1)» 
02 SORT_OUT_HDWR BIT C6)» 
02 SORT_LOUT_RECSIZE BIT C24)-« 
02 SORT_OUT_LELKSIZE BIT C24)» 
02 SORT_OUT_CLOSE BIT C12)» 
02 SORT_OUT_VWARIABLE BIT Cid» 
02 SORT_DELETING BIT Cl)» 
02 SORT_STABILIZE BIT (€1)>» 
02 SORT_PARITY BIT C1)» 
02 SORT_RESTART BIT C1)» 
02 SORT_BIAS BIT C7)» 
02 SORT_RECORDS BIT €24)» 
02 SORT_TIMING BIT €1)> 
02 SORT_NUMBER_KEYS BIT (5S)> 
02 SORT_TIME_IT BIT Cll» 
02 SORT_IN_OVERRIDE BIT Cid» 
02 FILLER BIT C6)» 
02 SORT_KEY_LENGTH BIT €16)>% 
02 FILLER BIT €16)>» 
02 SORT_PARTITION BIT €24)» 
02 SORT_DELETE_KEYS BIT €4)> 
02 SORT_DUPCHECK BIT €1)» 
02 SORT_TAGRPG BIT C1)e 
02 SORT_W1_PID BIT C1)» 
02 SORT_W2_PID RIT Cid» 
02 SORT_TAGCOBUL BIT C1), 
02 ‘FILLER BIT €15)» 
O02 SORT_MEMORY BIT (€24)>» 
02 SORT_TAGSE ARCH BIT (€1)>» 
02 SORT_COLLATE BIT C1)» 
02 FILLER BIT €31)» 
02 SORT_RESTART_JOB BIT €24)» 

O01 SORT_KEY_TABLE BIT €1116)> 
O02 KEY (€30) BIT €36)>» 
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Verbs 

O1 KEY_FIELD BIT (€36)»s 
02 SIGN_FLAG BIT €1)» 
O02 DIRECTION BIT C1)» 
O02 FILLER BIT €1). 
02 COLLATE_KEY BIT C1)» 
O02 KEY LENGTH BIT €12)»5 
02 KEY_OISPLACEMENT BIT €20)» 

O1 MERGE_INPUT_TABLE BIT €80)>» 
02 FILLER BIT €8)>» 
O02 MERGE_DISK_IN BIT €8)» 


O02 MERGE_TWPUT_FILEC8) BIT C8)s 


FILE INO CDEVICE = DISK» 
RECORDS = 1860/1)» 


INi CDEVICE = DISK» 
RECORDS = 180/1)> 


IN2 CDEVICE = DISKe 
RECORDS = 180/1)» 


IN3 CDEVICE = DISKe 
RECORDS = 180/1)>» 


OUT CDEVICE = DISK» 
RECORDS = 180/1)s 


SORTLTYPE 2= 39€1)01L10% % USE SORT/MERGE 

SORTLHDWR == OF Z% DOES NOT APPLY 

SORTLFILES = 2000004985 2% 4&4 INPUT FILES 
SORT_RECSIZE == 30005A035 2% MAX RECCRO SIZE = 180 
SORTLINLHDOWR 2= 2€1)9010001a5 2Z% DISK 
SORTLIN_RECSIZE 2= @0005A0Q% Z% RECORD SIZE = 180 
SORT_LIN_BLKSIZE t= Q00000AQ% Z% BLOCK SIZE = 10 
SORTLIN_CLOSE *= 24008% % CLOSE WITH RELEASE 
SORT_LIN_VARIABLE == OF % NOT VARIABLE RECORDS 
SORT_OUT_HOWR ®= 2(€1)0100010% Z% DISK 
SORT_OUT_LRECSIZE = aO00SA0G* Z RECCROSIZE = 180 
SORT_LOUT_LBLXSIZE 2= 200000A07 % BLOCKSIZE = 10 


E 

E 
SORTLOUT_CLOSE *= 234009% % CLOSE WITH RELEASE 
SORT_OQUT_VARIASLE 2= OF Z NOT VARIABLE RECORDS 
SORT_DELETING *= 0% Z NO DELETING 
SORT STABILIZE <= 0 
SORTLPARITY 2= Q3 
SORTLRESTART *= OF Z% NO RESTART 
SGRT_BIAS z= 2@€1390110010a83 % 50 PERCENT BIAS 
SORT RECORDS = aOO00SE89% ZX 1000 RECCROS 
SORT TIMING z= aCLILaAF F REPORT SORT PARAMETERS 


SORTLNUMBER_LKEYS = a€1)000010% 2% i KEY 


SORT_TIME_TT t= a€1Ldias % DISPLAY SORT TIME ON ODT 
SORT_IN_OVERRIDE = OF % OO NOT USE INPUT BLOCKING 

35005 % KEY LENGTH = 180 BITS OR 10 BYTES 
3 


SORT_KEY_LENGTH <= 
SORT PARTITION s= 


1137833 


0 2 NO PARTITION 


2 SORT DUPLICATES IN ANY ORDER 


\ 


SORT_MERGE 


, 
2 00 NOT DISCARD RECORDS WITH PARITY ERROR 
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SORT MERGE 


SORT_DELETE_KEY 
SORT_DUPCHECK : 
SORT_TAGRPG 3 
SORT_W1_PID : 
SORT_W2_PID 2 

SORT_TAGCOBOL : 


>= OF X NO INCLUDE OR DELETE KEYS 
3€1)195 % REPORT DUPLICATE RECORDS 
» <£ NOT RPG TAG FILE 

> Z NO WORK PACK 

> %Z% NO WORK PACK 


= 03 % NOT COBOL TAG FILE 
SORT_MEMORY := @493£033 % 300000 BIT OF MEMORY 
SORT_TAGSEARCH t= 03 2% NO TAG SEARCH 
SORT_COLLATE 2= 0 


% NO COLLATE FILE 
0 


SORTLRESTART_JOB y Z NO RESTART 


SIGN_FLAG *= 0% Z% NOT SIGNED 

DIRECTION = 05 Z% ASCENDING URDER 

COLLATE_KEY == O> % NO COLLATE TABLE 

KEY_LENGTH S= Q250Q5 % KEY LENGTH = 180 BITS OR 10 BYTES 

KEY _ DISPLACEMENT = 20000008 2% KEY STARTS IN FIRST POSITION 


KEY €O) = KEY_FIELD; 


MERGE_DISK_IN 2= 9€1)900000100a0F 2% 4 INPUT FILES ON DISK 
MERGE_INPUT_FILECO) 2= 9€190000000085 Z RELATIVE FILE 
MERGE_INPUT_FILEC1) 2= 9(19000000014F7 ZX RELATIVE FILE 
MERGE_LINPUT_FILEC2) z= 9019000000100%7 Z RELATIVE FILE 
MERGE_INPUT_FILEC3) 2= 3€1900000010d% Z RELATIVE FILE 


WN et © 


COUNTER t= 03 
DO FOREVER; 
DO ENTER_INPUT_FILENAME FOREVER? 
DISPLAY C"ENTER INPUT FILE NAME -- NUMBER @ CAT 
DECIMAL CCUUNTER» 1) CAT * OR ENTER BYE FOR E0U")3 
ACCEPT ODT_INPUTS 
IF ODT_INPUT = "BYE" THEN Dos 
DISPLAY C"GOODBYE™)3 


STOP? 
ENDs 
IF COUNTER = 0 THEN CHANGE INO TO CMULTI_FILE_ID == ODT_INPUT)3 
IF COUNTER = 1 THEN CHANGE IN1 TO CMULTI_FILE_ID 2= ODT_INPUT)? 
IF COUNTER = 2 THEN CHANGE IN2 TO CMULTI_FILE_ID 2= ODT_INPUT)3 
IF COUNTER = 3 THEN CHANGE IN3 TO CMULTI_FILE_ID = QOT_INPUT)? 
IF CCBUMP COUNTER) = 4) THEN UNDO ENTER_INPUT_FILENAMES 


END ENTER_INPUT_FILENAMES 


DISPLAY C™ENTER OUTPUT FILE NAME OR ENTER BYE FOR E0U")3 
ACCEPT ODT_INPUTs 
IF ODT_INPUT = "BYE" THEN Dos 
DISPLAY C™GOODBYE™); 
5 TOP? 
END3 | 
CHANGE OUT TO CMULTI_FILE_ID 2= ODT_INPUT):; 
SORT_MERGE CSORT_INFORMATION_TABLE» SORT_KEY_TABLE» 
MERGE_INPUT_TABLE» QUT)s 
END? 
FINI; 
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SORT_MERGE 
% This example program uses the SORT_MERGE verb to merge four 


% input files to create one output file. The program accepts 
% from the ODT the names of each input file and the name of the 
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SORT__SEARCH 


The SORT__SEARCH verb is used only by the SORT programs and provides the information required 
to evaluate a record for sorting purposes. < first-table-entry-address:>> contains the address in an array 
of records of the first record to examine and <limit> specifies the last record to be examined. 


SDL and UPL Syntax: 


—— SORT_SEARCH ( <first-table-entry-address> , <limit>); __§_____f 


Syntax Semantics: 


first-table-entry-address 
This field can be any valid SDL/UPL literal, identifier, or expression that returns a value and 
specifies the base-relative address of the first entry in the table of records to be examined and 
the condition under which records are to be selected. 


limit 
This field can be any valid SDL/UPL literal, identifier, or expression that returns a value and 
specifies the last record to be examined. 
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SORT_STEP_ DOWN 


SORT__STEP__DOWN 


The SORT__STEP__DOWN verb provides the information necessary to compare two records. <rec- 
ord-1> and <record-2> are the first and second records to be compared. <key-table-address > 


specifies the sort key used in the comparison. 
This verb is for SORT program use only. 


SDL Syntax: 


—— SORT_STEP_DOWN (<record-1>, <record-2>, <key-table-address> ) ; $$] 


Syntax Semantics: 


record-1 
This field can be any valid SDL literal, identifier, or expression and specifies the first of two 


records that are to be compared. 


record-2 . 
This field can be any valid SDL literal, identifier, or expression and specifies the second of two 


records that are to be compared. 


key-table-address 
This field can be any valid SDL literal, identifier, or expression that returns a 24-bit value and 


specifies the address of the key table that the sort key uses for the comparison. 
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SORT__SWAP 


The SORT__SWAP verb exchanges the values of two identifiers in memory without allocating a tempo- 
rary storage area. 


SDL and UPL Syntax: 


— SORT_SWAP (<identifier-1>, <identitier-2>) ; 2. 


Syntax Semantics: 

identifier-1 
This field can be any valid SDL/UPL identifier and specifies the first of two fields to be ex- 
changed. 

identifier-2 
This field can be any valid SDL/UPL identifier and specifies the second of two fields to be ex- 
changed. 


Example: 


DECLARE A CHARACTER C10), 
PB CHARACTER CLO)> 


= Mess 
= "4JERN, 

SORT SWAP CA> #)s % Exchanges the values contained in 
4 A ard P. 


identifiers 


Figure 9-5 shows the contents of identifiers A and B before and after the SORT_SWAP operation. 


Before After 


G18308 


Figure 9-5. Contents of A and B Before/After SORT_SWAP Operation 
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SORT_SWAP 


Example Program: 


DECLARE INPUT1 CHARACTER (10)>» 
INPUT2 CHARACTER (10)5 


DISPLAY CP ENTER THE FIRST 10 CHARACTERS" )> 
ACCEPT INPUTIs 

DISPLAY C™ENTER THE SECOND 10 CHARACTERS"); 
ACCEPT INPUT2> 

DISPLAY ("VALUE OF INPUT1 BEFORE 
DISPLAY ("VALUE OF INPUT2 BEFORE 


" CAT INPUT1)>3 
" CAT INPUT2)> 


Hott 


SORT SWAP CINPUTL» INPUT2)> 


™" CAT INPUT1)>s 
" CAT INPUT2)5 


DISPLAY C"™VALUE OF INPUT1 AFTER 
DISPLAY C"VALUE OF INPUT2 AFTER 
DISPLAY ("GOOD BYE"); 

STOPS 

FINIs 


This example program accepts two 10-character fietds from 
the ODT» displays the values of the fields before performing 
the SORT_SWAP verbs and dispiays the values of the fields 
after performing the SORT_SWAP verb. 
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SORT__UNBLOCK 


The SORT__UNBLOCK verb moves a record to and from a buffer and updates the buffer pointer 
and block count. This verb normally returns a 0 (zero). When the block count goes to 0 (zero), this 
verb restores the original buffer pointer and block count and returns @(1)1@. If the verb returns 
@(1)1@, the input/output (I/O) operation can take place. 


A bit in the mini-FIB indicates to the SORT__UNBLOCK operation to create sort tags. If this bit is 
TRUE, the SORT__UNBLOCK operation uses the sort key table and selects only the key information 
to move from the buffer. A value in the mini-FIB represents the length of the receiving field. 


This verb is for SORT program use only. 
SDL Syntax: 


—— SORT_UNBLOCK (<mini-FIB-address> , <iength>, <source>, —————————_—_——_____________—_> 


>———-_ <destination> ) ; SS 


Syntax Semantics: 


mini-FIB-address 
This field can be any valid SDL identifier or expression that generates an address and specifies 
the address of the mini-FIB used by the SORT program. 


length 
This field can be any valid SDL literal, identifier, or expression that returns a value and specifies 
the length of the destination field. 


source 
This field can be any valid SDL literal, identifier, or expression that returns a value and specifies 
the buffer from which the record is moved. 


destination 


This field can be any valid SDL literal, identifier, or expression that returns a value and specifies 
the buffer to which the record is moved. 
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SPACE 
SPACE 


The SPACE verb causes the SDL/UPL program to position the file’s current record pointer to the 
record specified by <space-amount> if the keyword TO is specified, or to skip the number of records 
specified by <space-amount> if the the keyword TO is not specified. 


SDL and UPL Syntax: 
— SPACE <file-identifier> Pe <space-amount> i> 
TO_EOF 


ON EOF <statement-1>; 
1 ON EXCEPTION <statenient-2>; 


Syntax Semantics: 


file-identifier | 
This field can be any valid SDL/UPL file identifier and specifies the file on which to perform 
the space operation. 


TO 
The keyword TO specifies that skipping to the record number specified by integer, identifier, or 
expression is to be performed. The value of <space-amount> must be positive. 

TO__EOF 
The keyword TO__EOF causes the SDL/UPL program to skip to the end-of-file record within 
the file. 


space-amount 
This field can be any valid SDL/UPL integer, identifier, or expression that returns a binary value 
and specifies the number of records to skip over or the specific record to skip to in a sequential, 
fixed-length file. The value of <space-amount> must be positive. 


ON EOF 
The keywords ON EOF cause the SDL/UPL program to perform <statement-1> if the SPACE 
operation results in reaching the end-of-file record. 


ON EXCEPTION 
The keywords ON EXCEPTION cause the SDL/UPL program to perform <statement-1> if the 
SPACE operation cannot be completed because of an error condition. 


statement-1 
This field can be any valid SDL/UPL statement and is performed when the program encounters 


the end-of-file record. 
statement-2 


This field can be any valid SDL/UPL statement and is performed when the program encounters 
an exception in the file. 
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SPACE 


Example 1: 


SPACE LINE 33 


Example 2: 


SPACE TAPEFILE TO Xs 
GCN ECF STOP; 


Example 3: 
SPACE CISKFILE TQ EUMF X; 


oN ECF STOP; 
CN EXCEPTIOR STOP; 


9-186 


wr 


wn rw mon we zr 


mm ee 


Verbs 


The LINE file ts spaced three print 
lines on the tine printer. 


The TAPEFILE file skins to the tape 
record specified by the binary vatue 

cf the identifier Xe If the end-of-file 
record is encountered» the orogram qoes 
to end of jobe 


The OISKFILE file skins to the disk 
record specified by the binary value of 
BtiMP xX. Tf the endwof"*file record or a 
rarity error occurs» the program qoes to 
end cf job. 
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Verbs 


Example Program: 


DECLARE ODT_ INPUT CHARACTER C1C)» 
DISK_RECORD CHARACTER (€180)2 


FILE IN CDEVICE = DISK» 
RECORDS = 1860/1» 
USE_INPUT_BLOCKING)>; 


DISPLAY CENTER 1LO-CHARACTER FILE NAME OR ENTER BYE FOR EQJ")3 
ACCEPT ODI_INPUTS 
IF ODT_INPUT = *BYE"™ THEN DOS 
DISPLAY ("GOOD BYE"); 
STOPS 
END? 
CHANGE IN TO CMULTI_FILE_ID := ODT_INPUT)3 
OPEN IN WITH INPUTS 
ON FILE_MISSING DO; 
DISPLAY C*FILE ™ CAT QDT_INPUT CAT 
" NOT PRESENT -~ GOOD BYE™); 
STOP? 
END; 
DO FOREVER? 


SPACE 


DISPLAY C™ENTER THE RECORD NUMBER TO SKIP TO OR ENTER BYE FOR E0J"23 
ACCEPT ODT_INPUTs 
IF ODT_INPUT = "BYE" THEN DOs 
CLOSE IN WITH RELEASES 
DISPLAY ("GOOD BYE")? 
STOPS 
END? 
SPACE IN TO CONVERT CODT_INPUT» FIXED); 
ON EOF DO; 
DISPLAY C"™EOF ENCOUNTERED ON SPACE -- GOOD BYE™)3 
STOP? 
END? 
ON EXCEPTION DOs 
DISPLAY C"PARITY ENCOUNTERED ON SPACE == GOOD BYE"); 
STOPS 
END 
READ IN CDISK_RECORD)$ 
ON EXCEPTION DO; 
DISPLAY C"™PARITY ENCOUNTERED ON READ -- GOOD BYE"); 
STOP? 
END? 
DISPLAY ("THE CONTENTS OF THE DISK RECORD ARE")? 
DISPLAY CDISK_RECORD)3 
END? 
FINI? 
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SPACE 


This example program uses the SPACE verb to position the 

disk file to the relative record number that is accepted 

from the ODT. The program first accepts a lLO“character 

file name from the ODT» then accepts the record number within 
the file to be displayed. If BYE is entered» the program goes 
to end of job. If the file requested is not present» or the 
program encounters a parity error vhile spacing» or the 
program encounters the endwof "file records the program 

goes to end of job. 
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SPO_INPUT_PRESENT 


SPO__INPUT__PRESENT 
The SPO__INPUT__PRESENT verb returns the value @(1)1@ if ODT input is present and returns 


the value @(1)0@if ODT input is not present. The SPO_INPUT__PRESENT verb assures that the 
ACCEPT verb has input, and does not suspend the program waiting for ODT input. 


$$ 


SDL and UPL Syntax: 


—— SPO_INPUT_PRESENT 


Example: 


DECLARE SOGLEAN EIT (C1)5 % The identifier BOGLEAN is assigned 
BCOLEAN = SPO_LETNPUT_PRESENTs Z% the value a€1)1qa if COT tnnut is 

% aueued for the program and the 

& value 2C1)9¢ 1f CUT inout is not 

% queued for the programe 


Example Program: 


DECLARE ODT_INPUT CHARACTER (50)3 
DO FOREVER; 
IF SPO_INPUT_PRESENT 
THEN DOS 
ACCEPT ODT_INPUTS 
IF ODT_INPUT ="BYE™ THEN STOP? 
DISPLAY CODT_INPUT)? 
ENDs 
ELSE IF NOT WAIT CTIME_TENTHS (€100)) 
THEN DISPLAY ("10 SECONDS HAVE EXPIRED")3 
ENDS 
FINI? 


This example program uses the SPO_INPUT_PRESENT verb to check 
for any message in the ODT queuee If there is a messages the 
program accepts the message and displays it on the ODT. 

If there is no messages» the procram waits 10 seconds for a 
messagee If no message is entered» the program displays 

10 SECONDS HAVE EXPIRED on the ODT and continues to waait another 
10 secondse If BYE is entered» the program goes to end of job. 
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STOP 


The STOP verb causes the programmatic end of a program and notifies the MCP that the program 
has finished executing. The STOP and the FINI verbs have different functions. The FINI verb is the 
final statement in a SDL/UPL source program and marks the physical end of the source file. 


<syntax-errors> is for use by B 1000 SDL/UPL compilers and causes the MCP to display the value 
as the number of syntax errors encountered when compiling a program. The value is displayed in the 
end-of-job message on the ODT. 


SDL and UPL Syntax: 


ey el ae 
<syntax-errors> ——— 


Syntax Semantics: 


syntax-errors 
This field can be any valid SDL/UPL integer, identifier, or expression that returns a binary value 
and specifies the number of syntax errors that occurred. 


Examples: 
STCP> & Causes the program to discontinue executinge 
STOP 10; % Causes the program to discontinue executing 


% and tc notifv the MCP to Show in the end“of7job 
% message that 10 syntax errors occurrede 


Example Program: 


DECLARE OOT_INPUT CHARACTER €10)3 


DISPLAY ("ENTER THE NUMBER OF SYNTAX ERRORS DESIRED IN THE EQu" 
CAT " MESSAGE"); 
ACCEPT ODT_INPUTS 
DISPLAY ("GOOD BYE"); 
IF ODT_INPUT = ** 
THEN STOPS 
ELSE STOP CONVERTCODT_INPUT»> FIXED)? 
FINIS 


This example program accepts from the ODT the number of syntax 
errors that are desired to be included in the MCP end-of~job 
message. If zeros or blanks are entered» no syntax errors 

are included. 


NRW NR 
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SUBBIT 
SUBBIT 


The SUBBIT verb provides the capability to address one or more bits within a bit string. 


The SDL/UPL compiler does not verify that <start-position> and <length> are within bounds. In- 
stead, a range check is performed at execution time on <start-position> and <length>, and an out- 
of-bounds value causes the program to terminate with an INVALID SUBSTRING program abort. In 
other words, <start-position> must reference a position in the bit string and <length> must not 
specify more bits than exist between <start-position> and the end of the string. 


If the SUBBIT verb appears to the left of a assignment operator, the SUBBIT verb is treated as an 
address generator. Truncation, fill, and data alignment are performed by the operator with a BIT data 
type being the destination data type. In other words, if the source field is not declared with a BIT 
data type, the alignment is to the right and is controlled by the value of <start-position> and the 
number of bits specified by the value of <length>. 


If <start-position> and <length> are declared with a BIT data type, each is evaluated as being a 
binary number. For example, if a literal ‘‘1’’ is specified, the EBCDIC value ‘‘1’’ is @F1@. This value 
converts to a binary value of 241, which results in specifying 241 as the <start-position> or specifying 
241 as the length. 


SDL and UPL Syntax: 


—— SUBBIT ( <string-identifier>, <start-position> ea ) — 
, <length> 


UPL Syntax: 


—— SUBBIT (<string-identifier>, <start-position> ee ) | 
, <length> 


Syntax Semantics: 


string-identifier 
This field can be any valid SDL/UPL identifier or expression that returns a value. If <string- 
identifier > is an expression, the data type returned is assumed to be equal to BIT. <string-identi- 
fier > specifies the name of the character string to be scanned. 


start-position 
This field can be any valid SDL/UPL integer, identifier, or expression that returns a binary value 
and specifies the first element of the new string. <start-position> is a zero-relative offset to the 
beginning of <string-identifier>. 


length 
This field can be any valid SDL/UPL integer, identifier, or expression that returns a binary value 
and specifies the number of elements that are to be included in the new string beginning with 
<start-position>. If <length> is not specified, all of the string beginning with <start-posi- 
tion> is included in the new string. Padding and truncation follow the standard SDL/UPL rules. 
If length has a value equal to zero, no string of bits is returned. 
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SUBBIT 
Example 1: 


DECLARE SEIT FIXEC; 


SPIT t= a€iy00100Gs 

A s= SUREIT CSPIT» 23% 1)% 
Example 2: 

DECLAFE SB1T FIXES 

SBIT += 90190010043 

A s= SURCIT CSEITT» ele 1)5 
Example 3: 

CECLAFE SRIT AIT Cl)» 

AX2 BIT €S)5 
SBIT = aCldLIOLLitoola, 
AX2 3= a@CLIIVNOOLOLCOae 


SUBBLT CAX@s» 3) c= 
SUBBIT CSbHIT+ 3s 2), 
Example 4: 


DECLARE CRu_COCE EIT C16)» 

SOC_COCE FIXEC, 

SUBBITT COAJ_CCCE» &» 3) 
SOC_CCUE; 


Example 5: 


DECLARE X PIT Cf)» 

C BIT CAds 
X s= a€bILLI111111a5 
C t= «(1300000000042 
SUBBIT (X» 4) ss 


SUBBIT (C+ Os» 4); 
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nw 


~ 


Verbs 


Identifier A ts assigned the vatue 
eaual to 3@2(€1)0¢4. 


Identifier A is assiqned the value 
eau3l to adidia. 


1s assiqned a resulting 
eC 1)10901100090a. 


Identifier AX2 
value ecuat to 


The rightmost eight bits of identifier 
SOC_CODE are assiqned to the rightmost 
eiacht positicns of OBJ_CODE. 


Identifier X is assigned the 
resulting value eaquat to 
@C1)OOO001ILII1G. 
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Verbs 
SUB 
Example Program: 
DECLARE ODT_INPUT CHARACTER (53> 
STRING BIT C40)» 


LENGTH FIXED? 
START_POSITION FIXED» 
DISPLAY_FIELD CHARACTER (€5)3 


DISPLAY CTENTER ANY S“CHARACTER STRING OR ENTER BYE FOR EOJ"); 
ACCEPT QOT_INPUTS 
IF ODT_INPUT = “BYE” THEN DO», 
DISPLAY C"GOOD BYE™)s 
STOP s 
ENDs 
STRING 2= ODOT_INPUT> 
DO FOREVER? 
DO FOREVER; 
DISPLAY C*ENTER ANY OF THE FOLLOWING 2"CHARACTER NUMBERS FOR™ 
CAT * THE START POSITION OR ENTER BYE FOR EQJ == O- 
CAT * B» 16» 2he 32)3 
ACCEPT ODI_INPUT> 
IF ODT_INPUT = "BYE" THEN DO; 
DISPLAY C"GOOD BYE*)s 
STOP> 
ENDs 
START_POSITION == CONVERTCODT_INPUT> FIXED); 
IF NOT CSTART_PGOSITION > 39) AND NOT CSTART_POSITION < O) 
THEN UNDO? . 
ELSE DISPLAY C®THE VALUE FOR START POSITION [S OUT OF RANGE™) 
END> 
DO FOREVER; 


BIT 


* 
Fd 


DISPLAY C*ENTER ANY OF THE FOLLOWING 2-CHARACTER NUMBERS FOR*® 
CAT “ THE LENGTH OR ENTER BYE FOR EOI =~ Oo 8 16% 24" 


CAT * 3250 40")% 
ACCEPT ODT_INPUT> 
TF OQOTLINPUT = "BYE" THEN DOs 
DISPLAY ("GOOD BYE"); 
STOP? 
END» 
LENGTH *= CONVERTCODT_INPUT» FIXED)s 
IF NOT CCSTART_POSITION # LENGTH) > 403) 
THEN UNDO>s 
ELSE DO» 


DISPLAY C"THE VALUE ENTERED FOR LENGTH IS OUT OF RANGE”); 


DISPLAY C"LENGTH MUST NOT BE GREATER THAN * 


CAT CONVERTC C40 - START POSITION)» CHARACTER) ); 


END> 
END>s 


DISPLAY_FIELD 2= SUBBIT CSTRINGs START_POSITION» LENGTH) > 


DISPLAY ("THE SUBBIT VALUE IS * CAT CISPLAY_FIELD)> 
END> 
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Verbs 
SUBBIT 
FINIs 
Z This example program uses the SUBBIT verb to display a partial 
% character string in bitse The program accepts from the ODT 
% the character string» and then accepts twor 2“character numbers 
% for the starting position and length. The resulting partial 
% character string is then displayed on the ODT.j If BYE is 
% entered» the program goes to end of job. 
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SUBSTR 


The SUBSTR verb provides the capability to address one or more characters within a character string. 


The SDL/UPL compiler does not verify that <start-position> and <length> are within bounds. In- 
stead, a range check is performed at execution time on <sStart-position> and <length>, and an out- 
of-bounds value causes the program to terminate with an INVALID SUBSTRING program abort. In 
other words, <start-position> must reference a position in the character string and <length> must 
not specify more characters than exist between <start-position> and the end of the string. 


If the SUBSTR verb appears to the left of an assignment operator, it is treated as an address generator. 
Truncation, fill, and data alignment are performed by the SUBSTR verb and the destination data type 
is CHARACTER. In other words, if the source field is not declared with a CHARACTER data type, 
the alignment is to the right and is controlled by <start-position> and the number of characters 
specified by <length>. If the source field is declared with a CHARACTER data type, the alignment 
is left-justified to the position as specified by <start-position> and is controlled by the value of 
<start-position> and the number of characters in the value of <length>. 


If <start-position> and <length> are declared with a CHARACTER data type, each is evaluated 
as a binary number. For example, if a literal one (‘‘1’’) is specified, the EBCDIC value ‘‘1”’ is @F1@. 
This value converts to a binary value of 241, which results in specifying 241 as <start-position> or 
specifying 241 as the length. 


A value of zero for <length> is valid and describes a null substring. Any attempt to assign data to 
a null string causes no data to be stored and no errors to be generated. 


SDL and UPL Syntax: 


—— SUBSTR (<string-identifier>, <start-position> ee ) — 
, <length> 


Syntax Semantics: 


string-identifier 
This field can be any valid SDL/UPL identifier or expression that returns a value. If <string- 
identifier > is an expression, the data type of <string-identifier> is assumed to be equal to 
CHARACTER. <string-identifier> specifies the name of the character string to be scanned. If 
<string-identifier > is the name of a file, then a 24-bit integer value is generated, representing 
the file number of the file as it is declared in the source file. 


start-position 
This field can be any valid SDL/UPL integer, identifier, or expression that returns a binary value 
and specifies the first element of the new string. <start-position> is a zero-relative offset to the 
beginning of <string-identifier>. 


length 
This field can be any valid SDL/UPL integer, identifier, or expression that returns a binary value 
and specifies the number of elements that are to be included in the new string beginning with 
<start-position>. If <length> is not specified, all of the string beginning with <<start-posi- 
tion > is included in the new string. Padding and truncation follow the standard SDL/UPL rules. 
If <length> has a value equal to 0 (zero), then no string of characters is returned. If <length> 
is omitted, <start-position> must be modulo 8. 
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SUBSTR 
Example 1: 
CECLARE ALFA CHARACTER (€26)>3 
ALFA <= “"ABCUEFGHIJKLMNOPOQRSTUVHEKXYZ"> 
X = SUBSTHCALFA»> Or 1335 % 'dentifier X contains the vatue 
% equal to "A". 


Example 2: 


DECLARE ALFA CHARACTER €26)% 


ALFA = *"ABCDEFGHIJKLMAQPARSTUVWXYZ"; 
X $= SUBSTKRCALFA» 24)3 % Identifier X contains the vatue 
% equal ta “YZ. 
Example 3: 
N s= OF X% Identifier WN has a data type 
CG COC FCREVER; % equal to FIXED. Identifier PRINT 
SUSSTERCPRINT» Ne 1) 2= Z contains every other letter in the 
SUESTRCALFAs» 2 * No 1)5 % Strings for examoler A C E «ae W Vu 
IF ¢€2 * CBUMP N)) GTR 275 
THEN UNDO OCC; 
ENC GOCs 
Example 4: 
ABC s= "CPPCSITE7;, ~ The value of identifier ABC 15 
CH z= "VAULT"; % changed from "OPPUSITE" to 
SUBSTRCABCs» Or 1) f= Z “APPOSTITE™. 
SUBSTRCChH» Ls» 1)3 
Example 5: 
X = "CHARACTERS; % The vatue cf identtfier xX 
C s= "COALITION"; % becomes “ChHARCOAL". 
SUESTFOX»4) s= SUESTRCUC 20°4);3 
Example Program: 
DECLARE ODT_INPUT CHARACTER €40)» 
STRING CHARACTER (€40)» 
LENGTH FIXEDs 
START_POSITION FIXED» 
DISPLAY_FIELD CHARACTER (€40)>3 
DISPLAY C"ENTER ANY 40°CHARACTER STRING OR ENTER BYE FOR EOQJ")3 


ACCEPT ODIT_INPUT3 
IF ODT_INPUT = 


9-196 


"BYE" THEN 905 


DISPLAY 
STOP? 


ENDs 


("GOOD BYE); 
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SUBSTR 


STRING = ODT_INPUT> 
DO FOREVERS 
DO FOREVERs 
DISPLAY C™"ENTER ANY 2-CHARACTER NUMBER FOR THE START POSITION OR* 
CAT “ ENTER BYE FOR EOQJ")> 
ACCEPT ODT_INPUTS 
IF ODOT_LINPUT = "BYE" THEN DO> 
DISPLAY C"GOOD BYE")>s 
STOP=s 
ENDs 
STARTLPOSITION 2= CONVERTCODT_INPUT» FIXED)> 
If NOT CSTART_ POSITION > 39) AND NOT CSTART_POSITION < 0) 
THEN UNDOs 
ELSE DISPLAY ("THE VALUE FOR START POSITION [IS OUT OF RANGE"); 
ENDs 


DO FOREVER> 
DISPLAY C"ENTER ANY 2=CHARACTER NUMBER FOR THE LENGTH OR ENTER™ 


CAT ™ BYE FOR E0N")3 
ACCEPT ODT_INPUTS 
IF ODT_INPUT = "BYE" THEN DOs 
DISPLAY ("GOOD BYE"); 
STOPS 
ENDS 
LENGTH := CONVERTCODT_INPUTs FIXED); 
IF NOT CCSTART_POSITION # LENGTH) > 40) 
THEN UNDOS 
ELSE 003 | 
DISPLAY C"THE VALUE ENTERED FOR LENGTH IS OUT OF RANGE")3 
DISPLAY C"LENGTH MUST NOT BE GREATER THAN " 
CAT CONVERTC C40 — START_POSETTION)» CHARACTER) )3 
ENDS 
ENDS 


DISPLAY_FIELD %= SUBSTRCSTRING» START_POSITION» LENGTH); 


DISPLAY C*°THE SUBSTRING VALUE IS * CAT DISPLAY_FIELD)> 


END» 

FINI; 

% This example program uses the SUBSTR verb to display a 

% substring of a character stringe The program accepts from 

% the OOT the character strings and then accepts twos 2“character 
% numbers for the starting position and length and displays on the 
% ODT the substring that results. If BYE is entered» the program 
% goes to end of job. 
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SWAP 


The SWAP verb returns the current value of <destination> and stores the value of < source > into 
<destination>. The value of <source> remains unchanged after the SWAP operation. 


The length of <destination> determines the number of bytes of <source> that are stored into <des- 
tination>. If the length of <destination> is greater than 24 bits, then only the rightmost 24 bits of 
<source> are stored. If the length of <source> is less than <destination> and <destination> is 
less than or equal to 24 bits, <destination> is padded with leading zeros. 


SDL and UPL Syntax: 


— SWAP ( <destination>, <source> — 


—___—_—___ 


SDL Syntax Semantics: 


destination 
This field can be any valid SDL/UPL identifier and specifies the destination field of the SWAP 
operation. 


source 
This field can be any valid SDL/UPL literal, identifier, or expression that returns a value and 
specifies the source field for the SWAP operation. 


UPL Syntax Semantics: 


Refer to the SORT__SWAP verb for the semantics of the UPL syntax. 


Example 1: 
DECLARE A FIXED» % The value of identifier F is stored 
PB FIXEO>, % irto tdentifier A» and identifier C 
C ¢tiIXeEt, % 18 assigned the value of identifier A. 
A s= 9G; 
6 s= 1; 
C 3s= SWAP CAe b)> 
Example 2: 
DECLAFE A FIXED, % The ELSE part of the statement is 
A s= 0» % evaluatedse since the vaiue of identifier 
IF SWAP CA» 1) % A was oriainally asstqred a value of 
THEN OC; % 0 (that tse FASLE). At the end of the 
: %Z SWAP coerations the value 1 ts stored 
- Z irto tdentifiter A and the value 0 is 
° % returned to the top of the evatuation 
ENC? Z stack. 
ELSE CC? 
END; 
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Verbs 
SWAP 
Example Program: 
DECLARE ODT_INPUT CHARACTER (3s 
ODT_SAVE CHARACTER (3)» 


SWAP_FTIELD CHARACTER (€3)3 


DO FOREVER; 
DISPLAY C™ENTER 3 CHARACTERS FOR NEW VALUE OF ODT_INPUT OR ENTER" 
CAT " BYE FOR E0N")3 
ACCEPT ODT_INPUT? 
IF ODT_INPUT = "BYE" THEN DOs 
DISPLAY ("GOOD BYE")s 
STOPS 
END 


SWAPLFIELD 2= SWAP CODT_SAVE» ODT_INPUT)> 


DISPLAY C"°THE VALUE OF ODTLINPUT = ™ CAT ODT_INPUT)> 
DISPLAY ("THE VALUE OF ODT_LSAVE = * CAT ODT_SAVE);3 
DISPLAY C"THE VALUE OF SWAP_LFIELD = ™ CAT SWAP_FIELD)> 
END>s 
FINI; 


This example program uses the SWAP verb to store the vatue 
accepted from the ODT in identifier ODT_SAVE and assigns the 
old value of ODT_SAVE to identifier SWAP_FIELD. The value of 
identifiers ODT_INPUT» ODT_SAVE» and SWAP_FIELD are dispiayed 
on the ODT.j If BYE ts entered» the program goes to end of jobe 


rN NM HN 
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S__MEM__SIZE 


The S_MEM__SIZE verb returns a 24-bit value which is the S-memory size in bits of the B 1000 com- 
puter system. 


SDL Syntax: 
—~S MEM_SIZE YS 


Example: 


DECLARE MEMORY BIT €24)% ZX Identifier MEMORY is assigned the 
MEMORY °= S_MEM_SIZE> Z% vadue of the memory size of the 
Z B 1C00 computer systeme 


Example Program: 


DISPLAY C"THE S“MEMORY SIZE EQUALS a" CAT 
CONVERT CCS_MEM_SIZE / &)» CHARACTER) CAT "2 BYTES"); 


STOP? 
FINIs 


Output from Example Program: 


S_MEM_S5IZ0 =6234 BOJe PP=4» MP=4 TIME = 1023771124 
% S_MEM_SIZO =6234 THE S“MEMORY SIZE EQUALS 210000042 BYTES 
S_MEM_SIZO =6234 EQJ» TIME = 10:337:216.7 
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THAW__PROGRAM 


The THAW__PROGRAM verb resets the memory and rollout lock bits set by the FREEZE_- 
PROGRAM verb. The THAW__PROGRAM verb allows the run structure nucleus of the program to 
be moved in and out of memory as required by the MCP. 


The THAW__PROGRAM verb has no effect if the memory and rollout lock bits are not set. 


SDL and UPL Syntax: 


—— THAW_PROGRAM; ————————— 


Example: 
THAW _PROGE AN; % Causes the run structure nucteus of the orogram 
% to be moved in ana out of memory 45 required by 
% the mCP. 
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THREAD__VECTOR 
The THREAD__VECTOR verb is used only by the SORT program. 


SDL Syntax: 


— THREAD_VECTOR (<table-address>, <index>) ; ——— 


Syntax Semantics: 


table-address 
This field can be any valid SDL literal, identifier, or expression that returns the table address 


of the table containing the information described in the INITIALIZE_.VECTOR verb. 


index 
This field can be any valid SDL literal, identifier, or expression that returns a value and specifies 


the offset from the beginning of the table to the next record to be used for comparison. 
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TIME 
TIME 
The TIME verb returns a bit or character string whose value is the current system time. 
TIME and TIME(CIVILIAN, CHARACTER) are equivalent. 
SDL and UPL Syntax: 


eT keds coco a 
( CIVILIAN BIT ) 
- COUNTER — - CHARACTER 4 
MILITARY DIGIT 
CIVILIAN 


The keyword CIVILIAN causes the time to be returned in the HHMMSSTAP format, where HH 
is the hours, MM is the minutes, SS is the seconds, T is tenths of a second, and AP is AM or 
PM. 


Syntax Semantics: 


COUNTER 
The keyword COUNTER causes the time to be returned in the TTTTT format, where TTTTT 
is the time in tenths of seconds. 


MILITARY 
The keyword MILITARY causes the time to be returned in the HHMMSST format, where HH 
is the hours, MM is the minutes, SS is the seconds, and T is tenths of a second. 


BIT 


The keyword BIT specifies the time to be in the bit format. The following is the bit format for 
CIVILIAN, COUNTER, and MILITARY time. 


Q1 CIVILIAN EIT €36)» 


03 HH BIT C4)» 
O03 MM BYT (€6)» 
3 $$ BIT (€6)>» 
oS. ‘ft BIT C4)» 
03 AF BIT (16); 
O1 COUNTER BIT (20); 
QL MILITARY BIT €21)> 
03 Hk BIT (€5)>» 
093 MM BIT €65)- 
03 35 BIT C&)» 
03 7 BIT (4)s 
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CHARACTER 
The keyword CHARACTER specifies the time to be in the character format. The following is 
the character format for CIVILIAN, COUNTER, and MILITARY time. 


O1 CIVILIAN CHARACTER €9)> 


03 HH ChARACTER C2), 
O23 MM CRARACTER C2)» 
035 SS CHARACTER €2)> 
03 T CHARACTER (1)>- 
03 A&P CHARACTER C2 )5 
Gl COUNTER CHARACTER C6O)> 
SL MILITARY CHARACTER C7)> 
QO3 HH CKARACTER €2)>» 
03 MM CRARACTER C2) 
Zor a CHARACTER C2) 
03 7 CRAFACTER CL); 


DIGIT 
The keyword DIGIT specifies the time to be in the digit format. The following is the digit format 
for CIVILIAN, COUNTER, and MILITARY time. 


Gi CIVILIAN UIT C44), 


U3 Hh EIT (8)» 
03 MM BIT L&)» 
GS. 35 BIT (Aj, 
03 T BIT C4)» 
0353 AP BIT (16); 
Ol COUATEFR BIT (24); 
01 MILITARY BIT C26)» 
03 HH BIT (8)> 
03 MM BIT (8)>» 
DS “Ss BIT C8) 


Example: 


DECLARE CIVILIAN TIME CHARACTER (€9)>» 
COUNTER_TIME EIT (€20)» 
MiLITARY_TIME IT C28); 


TIMECCIVILITANs CHARACTER), 
TIMECCOUNTERe OIGIT); 
TIMECMILEITARY> SIT); 


CIVILIAN_TIME : 
CCUNTER_TIME ¢ 
MILITARY_TIME 3 
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If the current system time is 11:30:50.4 AM, then CIVILIAN__TIME, COUNTER__TIME, and 
MILITARY__TIME have the following bit and hexadecimal values. 


a€2)1111 0001 1112 90001 1111 O011 1111 0000 1111 


0101 L111 0000 1111 0100 1100 OC0O1 1101 01009 
ACOGVFLFLESFOFSFOF4CID4GG 


CIVILIAN_TIVE 


COUNTER TIME a(€1)0110 0101 0011 0010 101028 


aC4)6532Aa 


bon 


2a(1)0001 0001 0011 0000 0101 0000 01006 
904)1130504a 


MILITAKY_TLIME 


te 


Example Program: 


DECLARE O1 CIVILTIAN_TIME CHARACTER (€9)>» 


03 CIV_HH CHARACTER (€2)» 
03 CIV_MM CHARACTER (230 
03 CIV_SS CHARACTER (€2)» 
03 CIV_T CHARACTER (€1)>» 
03 CIV_AP CHARACTER C2)» 


O01 COUNTER_TIME 
O1 MILITARY_TIME 


CHARACTER (6)» 
CHARACTER (C7). 


03 MIL_HH CHARACTER (€2)> 
03 MIL_MM CHARACTER (€2)> 
03 MIL_SS CHARACTER (€2)> 
03 MIL_T CHARACTER (193 


CIVILIAN_TIME 2= TIME CCIVILIAN» CHARACTER)sS 
COUNTER_TIME = TIME CCOUNTER» CHARACTER); 
MILITARY_TIME == TIME CMILITARY» CHARACTER)? 


IF CIV_AP = "AM" THEN 

DISPLAY C"THE CURRENT SYSTEM TIME IN CIVILIAN FORMAT IS ™ CAT CIV_HH 
CAT " HOURS» " CAT CIV_MM CAT ™ MINUTES» * CAT CIV_SS CAT 
" SECONDS» AND ™ CAT CIV_T CAT * TENTHS OF A SECOND IN® 
CAT " THE MORNING™)3 

IF CIV_AP = "PM" THEN 

DISPLAY C®THE CURRENT SYSTEM TIME IN CIVILIAN FORMAT IS ™ CAT CIV_HH 
CAT * HOURS» " CAT CIV_MM CAT " MINUTES» ™ CAT CIV_SS CAT 
" SECONDS» AND " CAT CIV_T CAT ™ TENTHS OF A SECOND IN®™ 
CAT " THE AFTERNOON"); 

DISPLAY C"THE CURRENT SYSTEM TIME IN COUNTER FORMAT IS * CAT 
COUNTER_TIME CAT * TENTHS OF A SECOND™)3 

DISPLAY C*THE CURRENT SYSTEM TIME IN MILITARY FORMAT IS ™ CAT 
MIL_HH CAT " HOURS» ™ CAT MIL_MM CAT “ MINUTES» ™ CAT 
MIL_SS CAT ™ SECONDS» AND ™ CAT MIL_T CAT 
" TENTHS OF A SECOND™)3 

STOP? 

FINI; 


% This example program uses the TIME verb with the civilians 
% countere and military format and displays the current system 
% using each format with a data type equal to CHARACTER. 
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Output from Example Program: 


Verbs 


TIMEO =4286 BOJe- PP=4» MP=4 TIME = 
% TIMEO =4186 THE CURRENT SYSTEM TIME IN 


HOURS» 27 MINUTES» 


THE AFTERNOON 


41 SECOND Sp 


122272 


AND 6 


2 TIMEO =4186 THE CURRENT SYSTEM TIME IN 
616 TENTHS OF A SECOND 

% TIMEO =4186 THE CURRENT SYSTEM TI 
HOURS» 27 MINUTES» 41 SECOND Ss 


TIMEO =4186 EQJ. 
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TIME 


~ 
poor 


1222724745 


ME IN 
AND 6 


3909 
CIVILIAN FORMAT IS 12 
TENTHS OF A SECOND IN 


COUNTER FORMAT [5 448 


MILITARY FORMAT [5S 12 
TENTHS OF A SECOND 
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TIMER 
The TIMER verb returns a 24-bit value that is the current setting of the time register. 
SDL Syntax: 
— TIMER SS SS Se 
Example: 

DECLARE X BIT €24)35 % Identifier X is assigned the current 
= TIMERs Z value of the time register. 


Example Program: 


DISPLAY C"THE VALUE OF THE TIME REGISTER IS * CAT 
CONVERT CTIMER» CHARACTER))>; 


STOP» 
FINIs 


% This example program displays the current setting of the 
% time register. 


Output from Example Program: 


TIMERO =2270 BOS» PP=4» MP=4 TIME = 08:40:215.0 
Z TIMERO =2270 THE VALUE OF THE TIME REGISTER 15 O4F4F5 
TIMERO =2270 EOS» TIME = 08:40218.0 
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The TRACE verb causes the SDL instructions of the normal state program to be traced on the line 
printer. Specifying the NOTRACE verb turns off the trace. The tracing is effective only when the pro- 
gram is executed with the SDL trace interpreter. 


The following is the meaning of each of the 10 bits in <trace-option>. 


Bit Use 


0 Trace all commands except those which modify data or 
change the program pointer stack. This bit applies to 
normal state programs. 

1 Trace all commands which modify data items, for example, 
CLR, SNDL, and so forth. This bit applies to normal state 
programs. 

Z Trace all commands which change the program pointer 
stack; for example, IFTH, CASE, EXIT, and so forth. This 
bit applies to normal state programs. 


3 Not used. 


4-6 These bits have the same respective meanings as bits 0 
through 2 and are used only for the MCP. Several MCP 
routines (for example, GETSPACE, FORGETSPACE, and 
so forth) are not traced. 

7-9 These bits have the same respective meanings as bits 0 
through 2 and are used only for the MCP. The MCP 
routines not traced by setting bits 4 through 6 are traced. 


SDL Syntax: 


ee ay 
— NO ( <trace-options>) 


Syntax Semantics: 


trace-options 
This field can be any valid SDL literal, identifier, or expression that returns a value and specifies 
which trace option to use. The leftmost 10 bits specify which option to use. 


Examples: 
NOTRACES % Turns off the tracing of the porogram. 
TRACE> % Turns on the tracing of the proaram. 


Turrs on the tracing of the program and 
ano traces commands which change the 
program cointer stack. 


TRACE €2)3 


nv re w 
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TRANSLATE 


The TRANSLATE verb translates each item in <source-identifier >, using the <translate-table>, and 
stores the value in <result-identifier >. The translation continues until one of the following conditions 


occurs. 


1. The source string is exhausted. 
2. <result-identifier > becomes full. 
3. An error occurs in the translation operation. 


The <source-item-size> specifies the number of bits per item in <source-identifier >. <translate-item- 
size> specifies the bits per item in <translate-table> and <result-identifier >. The maximum length 
for <translate-item-size> and <source-item-size> is 24 bits. If the length of either <source-identifi- 
er> or <result-identifier> is not a multiple of its respective <translate-item-size>, the translation 
of the last item is undefined. 


<translate-table> must be large enough to hold all items in <source-identifier>. Each item in 
<source-identifier > is used as a subscript into <translate-table> in order to determine the translated 
value. Refer to the B 1000 Systems SORT Reference Manual, form number 1090594, for complete in- 
formation about the translation string. 


SDL and UPL Syntax: 
—— TRANSLATE (<source-identifier> , <source-item-size> , ———_—____ > 


> _ <translate-table> , <translate-item-size> , <result-identifier> Ss 


Syntax Semantics: 


source-identifier 
This field can be any valid SDL/UPL identifier and specifies the source string for the TRANS- 


LATE verb. 


source-item-size 
This field can be any valid SDL/UPL literal, identifier, or expression that returns a binary value 


and specifies the number of bits per item in <source-identifier>. 


translate-table 
This field can be any valid SDL/UPL literal, identifier, or expression that returns a binary value 
and specifies the table to use for translating <source-identifier> into the desired result. 


translate-item-size 
This field can be any valid SDL/UPL literal, identifier, or expression that returns a value and 


specifies the number of bits per item in <translate-table> and <result-identifier>. 
result-identifier 


This field can any valid SDL/UPL identifier and specifies the destination of the TRANSLATE 
verb. 
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Example: 


DECLARE ESCCIC_TAGLE tIT (1C24)> 
ASCII_FIELC E11 (70)> 
EGCCIC_FIELC EIT €80)3 


EABCCIC_ TABLE = gOCO1LS2C3372L2E2F160525080CO0CE0F a 
CAT ALOLLLct3S3CIC3I22618LISZF27ICIOLEILF a 
CAT @404F7F 785 86CSO7040505C4EEBSHC4BE14 
CAT GFCFIFCFSF4FSFOF?7FOFOTASESCTEGEGF a 
CAT a7CCil2cscaCsloC7CeCyDid2030405069 
CAT sC70EDSECESESESEGETEBESGAEOSASF OCG 
CAT 37598182838485808788899192939495969 
CAT aAG7IBIGAZAZALASAGATABASCOBADTALOTZ a> 


TRANSLATE CASCIIT_FLIELC» ?» EECDIC_TAELE>» &» ERCDIC_FIELD); 
% This examnte transtates a LSASCTI*7 fietd into an EBCDIC field. 


Example Program: 


DECLARE TRANSLATE_TABLE 81T (€123)>» 
OQOT_INPUT CHARACTER (€20)> 
ODT_OUTPUT CHARACTER €40)2 


TRANSLATE_TABLE *= QFOFLF2ZF3FSFSFEF 7F BF SCIC2C3C4C5ChQs 


DO FOREVERs 
DISPLAY ("ENTER ANY 20 CHARACTERS OR ENTER BYE FOR E0J")3 
ACCEPT ODT_INPUT> 
IF ODT_LINPUT = "BYE" THEN DOs 
DISPLAY ("GOOD BYE"); 
STOPs 
ENDs 


TRANSLATE CODTLINPUT»> 4» TRANSLATE_TABLE> 8» ODT_OUTPUT)2 


DISPLAY C"THE CHARACTERS ACCEPTED ARE EQUAL TO a” CAT ODT OUTPUT 
CAT "2 IN HEXADECIMAL NOTATION™)s 
END? 
FINIs 


Z% This example program accepts a 20-character field from the ODOT 


% and displays the hexadecimal value using the TRANSLATE verb. 
x If BYE is entered» the program goes to end of job. 
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UNDO 


The UNDO verb causes the program to exit a DO-group. Control is transferred to the statement imme- 
diately following the END statement for the corresponding DO-group. 


A maximum of 16 nesting levels can be exited with the UNDO verb. 


SDL and UPL Syntax: 


ee ey 


<identifier> 
Syntax Semantics: 


identifier 
This field can be any valid DO-group identifier and specifies the name of the DO-group to exit. 


Examples: 
UNDO; % Causes the DO~qroup to be exited. 
UNCOQ MAIN_LOOPs &% Causes the GO~qroup MAIN_LCOP to be exited. 


Example Program: 


Refer to the DO verb example program for an example program using the UNDO verb. 
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Verbs 


The USE verb causes specific elements in a DEFINE statement to be declared in a procedure. This 
eliminates the need to declare all of the elements in a structure when only a portion are required. The 
name stack size is kept to a minimum and program maintenance is simplified. The SDL/UPL compiler 
generates the structure using fillers and the specified elements. 


The USE verb must appear within a procedure and cannot appear on lexic level 0. 


The referenced <defined-identifier> must define one structured DECLARE statement. 


The structured DECLARE statement cannot contain arrays. 


The DUMMY REMAPS keywords must be specified on the outermost level (01 level) of the structured 


DECLARE statement. 


SDL and UPL Syntax: 


— USE ( ieee Soe reho) Gneat] Cane ) OF <defined-identifier> ; + 


Syntax Semantics: 


declared-identifier 


This field can be any valid SDL/UPL identifier that is declared within a DEFINE statement. 


define-identifier 


This field can be any valid SDL/UPL define identifier that defines a declaration statement which 
contains <declared-identifier >. 


Example 1: 


DECLARE PFE BIT €1440);3 


CEF INE PPH_CEC AS & 


CECLARE Gi CUMMY BREMAPS PPBr 


03 
03 
03 
03 


PROG NAME 
PROG_DATA_CICT 
PROG_SEG_DICT 
FROG_SCRT_SPAD 


FROCEDURE GET_CICT; 
DICT» PROC SEG_DICT) OF PPB_DECs % which the USE 


USE CPRUG_DATA_ 
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% The space is to be remapoed. 
% The CEFINE for the USE statement. 
% The reauired DUMMY O1 tevel. 
CHARACTEK (€10)> 
BIT Ci12)» 
BIT €112)> 
BIT €28) #3 
% The procedure in 


xX statement appears. 
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Example 2: 


DEFINE X AS & 


Verbs 


CECLARE O1 TUMMY FEMAPS Ae 


03 8 
05 #1 
U5 €2 


PROCECURE FIRSTs 
USE (C» €) OF X> 


BIT €5)» 

EIT C2)» 

BIT €3)> 
CHARACTER C€10)> 
BIT (1)> 

FIXED» 

BIT C24) &3 


USE 


The following is the structure that the SDL/UPL compiler generates from the USE statement in proce- 


dure FIRST. 


O1 DUMMY FEMAPS Ao 
C3 FILLER 
05 FILLER 
OS FILLER 
03 © 
03 6 
03 FILLER 
03 FILLER 


BIT (5)» 

BIT (€2)> 

BIT ¢€3)» 
CHARACTER (C10)> 
41T C1)» 

FIXEC» 

uty €24)> 


The keyword FILLER is substituted for the group identifier B. Normally, the SDL/UPL compiler gen- 
erates a syntax error if FILLER is specified as the group-level identifier. This is allowed with the USE 


statement. 
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VALUE__DESCRIPTOR 
The VALUE__DESCRIPTOR verb returns the descriptor of <add 


ress-field>. The value of an ad- 


dressable item is represented by a descriptor on the top of the evaluation stack. When the 


VALUE__DESCRIPTOR verb is performed, this descriptor is place 


‘d on top of the value stack. The 


descriptor of the descriptor which is moved to value stack is placed on top of the evaluation stack 


with the NAME__VALUE STACK bit set. 
SDL Syntax: 


—— VALUE_DESCRIPTOR (<address-field- ) ; 


Syntax Semantics: 

identifier 
This field can be any valid SDL identifier or expression that g 
the name of the descriptor to be moved to the value stack. 


Figure 9-6 shows the movement of the descriptor on the evaluat 
VALUE__DESCRIPTOR verb is performed. 


EVENT 


BEFORE 


EVALUATION 
STACK 


(DESCRIPTOR OF xX) (VALI 


a 


(DESCRIPTOR OF (DESC 


DESCRIPTOR X) 
(VALL 


G18324 


Figure 9-6. Movement of Descriptor on Evaluation 


Example: 


CECLARE ACCRESS e@1T €24); 
VALUE_CESCRKIPTGR CADDRESS)s 
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a 


enerates an address and specifies 


ion and value stacks when the 


JE OF X) 


-RIPTOR OF X) 


JE OF X) 


and Value Stacks 
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VALUE_DESCRIPTOR 


Example Program: 


DECLARE FIXED_FIELD FIXED» 
BIT_FIELD BIT (4)> 
CHAR_FIELD CHARACTER (1)3 


DISPLAY C"THE FOLLOWENG IS THE DESCRIPTOR OF A FIXED FIELD="); 
DISPLAY C"TYPE = ™ CAT 

CONVERT CSUBBTIT CVALUE_DESCRIPTOR CFIXED_FIELD)» O» 8)» CHARACTER))>; 
DISPLAY C"LENGTH = ™ CAT , 

CONVERT CSUBBIT CVALUE_DESCRIPTOR CFIXED_FIELD)>» 8» 16)» CHARACTER) )>; 
DISPLAY C*ADDRESS = ™ CAT 

CONVERT CSUBBIT CVALUE_DESCRIPTOR CFIXED_LFIELD)» 245 24)% CHARACTER))> 


DISPLAY C"THE FOLLOWING IS THE DESCRIPTOR OF A BIT FIELD? ™); 
DISPLAY C™TYPE = ™ CAT 

CONVERT CSUBBTY CVALUE_DESCRIPTOR CBIT_FIELD)» O» 8)» CHARACTER) )> 
DISPLAY ("LENGTH = * CAT 

CONVERT CSUBBTIT CVALUE_DESCRIPTOR CBIT_LFIELD) >» 8+ 16)»5 CHARACTER) D5 
DISPLAY C*"ADDRESS = * CAT 

CONVERT CSUBBIT CVALUE_DESCRIPTOR CBIT_FIELD)» 24» 24)» CHARACTER))>3 


DISPLAY C*THE FOLLOWING IS THE DESCRIPTOR OF A CHARACTER FIELD?")s 
DISPLAY CTYPE = ™ CAT 

CONVERT CSUBBTT CVALUE_DESCRIPTOR {CHAR_FIELD)» O» 8)» CHARACTER) ); 
DISPLAY C™LENGTH = 7 CAT 

CONVERT CSUBBIY CYALUE_DESCRIPTOR CCHAR_FIELD)» 8» 16)» CHARACTER))> 
DISPLAY C™ADDRESS = ™ CAT 

CONVERT CSUBBIT CVYALUE_DESCRIPTOR CCHAR_LFIELD)» 24% 24)» CHARACTER) Ds 


DISPLAY ("GOOD BYE™)> 
STOPs 
FINT> 


% This example program displays the descriptor of fixed» bit» and 


% character fields»s The type» tength» and address are displayed 
% for each descriptor. 
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The WAIT verb stops the program from processing until one of the events specified in the event list 
is TRUE. The WAIT verb returns a F{XED value which is the ordinal position (zero-relative) of the 
position in the event list of a TRUE event. Scanning begins with the ordinal position within the event 
list specified by <start-position> and continues to the last event. If no events are TRUE, the scanning 
continues with the first event in the event list until an event becomes TRUE. The events in the event 
list are identified by the keywords TIME__TENTHS, SPO__INPUT__PRESENT, DC__IO__COM- 
PLETE, Q._WRITE__OCCURRED, READ__OK, and WRITE__OK. If <start-position> is not spec- 
ified, <start-position> defaults to 0 (zero). If the value of <start-position> is greater than (number 
of events in the event list) minus 1, the MCP terminates the program with the following message. 


INVALID COMPLEX.WAIT COMMUNICATE RECEIVED 
SDL and UPL Syntax: 


eee ~<C~S~S*‘“‘“‘CSNC#C“*(“‘“SEN 
[ <start-position> | - 


i a i ee 

>—— ( : saa als 
TIME_TENTHS (<wait-time>) —————______—_—_________—_——_ Cc 

B — SPO_INPUT_PRESENT C 


DC_1O_COMPLETE 
Q_WRITE_OCCURRED (<file-id-1>) 


READ_OK (<file-id-2> De ee ee ) 
os een queue-family-id-1 >) 
WRITE_OK (<file-id-3> le ee ee ) 
———— [|< queue-family-id-2> | 


be ——O* 
Jae Sareea! ah aeeaeeaieeaa 
WHEN <when-expression> 


Syntax Semantics: 


start-position 
This field can be any valid integer, identifier, or expression that returns a binary value and 
specifies the ordinal position (zero relative) within the event list in which to begin the scanning 
for a TRUE event. If <start-position> is not specified, the value of <start-position> defaults 
to O (zero). 


TIME__TENTHS 
The keyword TIME__TENTHS is an event in the event list. The value of <wait-time> deter- 
mines when the TIME__TENTHS event becomes TRUE. If the value of <wait-time> is equal 
to 0 (zero), the event is always TRUE. If TIME__TENTHS is specified in the event list, it must 
be the first event in the event list. 
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WAIT 


wait-time 
This field can be any valid SDL/UPL integer, identifier, or expression that returns a binary value 
and specifies the length of time in tenths of a second to wait in order for the TIME__TENTHS 
event to become TRUE. The maximum value for <wait-time> is 864,000 (24 hours). 


SPO__INPUT__PRESENT 
The keyword SPO__INPUT__PRESENT is an event in the event list and becomes TRUE when 
a message from the operator at the ODT has been queued to the program. 


DC__IO__COMPLETE 
The keyword DC__IO__COMPLETE is an event in the event list and becomes TRUE when a 
previously initiated data communications read or write operation has been completed. 


Q__WRITE__OCCURRED 
The keyword Q._.WRITE__OCCURRED is an event in the event list and becomes TRUE when 
a write operation has been performed by another program or process for the queue file specified 
by <file-id-1>. 


file-id-1 
This field can be any valid SDL/UPL queue file identifier that is opened INPUT or INPUT/ 
OUTPUT and specifies the queue file identifier for the Q.WRITE_.OCCURRED keyword. 


READ__OK 
The keyword READ__OK is an event in the event list and becomes TRUE when the buffer for 
the file specified by <file-id-2> contains a record waiting to be read. 


file-id-2 
This field can be any valid SDL/UPL file identifier that is opened INPUT or INPUT/OUTPUT 
and specifies the file for the READ__OK keyword. 


If <file-id-2> is the file identifier for a queue file and <queue-family-id-1> is not specified, 
the READ__OK returns a TRUE condition even if there are no messages to read. 


queue-family-id-1 
This field can be any valid SDL/UPL identifier and specifies the subscript as the member of the 
queue file family. When the READ__OK becomes TRUE for a member within a queue file 
family, <queue-family-id-1> contains the value of the member within the queue file that has 
a record in the buffer to be read. 


WRITE__OK 
The keyword WRITE__OK is an event in the event list and becomes TRUE when the buffer for 
the file specified by <file-id-3> is empty and waiting for another write operation. If <queue- 
family-id-2> is specified, the WRITE__OK event applies to that queue family member. 


file-id-3 
This field can be any valid SDL/UPL file that is opened OUTPUT or INPUT/OUTPUT and 
specifies the file for the WRITE__OK keyword. 


queue-family-id-2 


This field can be any valid SDL/UPL identifier and specifies the subscript as the member of the 
queue file family. 
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WHEN 
The keyword WHEN causes an additional restriction of the occurrence of the associated event. 
If <when-expression> evaluates TRUE (rightmost bit equal to 1) and the associated event oc- 
curs, the event is TRUE. If <when-expression> evaluates FALSE (rightmost bit equal to 0) and 
the associated event is TRUE, the event is FALSE. 


when-expression 
This field can be any valid SDL/UPL identifier or expression and specifies the additional restric- 
tion for the WHEN keyword. 


Example: 


DECLARE EVENT FIXEC> 
START FIUXEC> 
EVENT 3= WAIT CSTART] CTIME_TENTHS C10)» 
SPO_LINPUT_PRESENT>» 
G_WKITE_QCCURKFED CINQUEUVE)> 
READ CK CREMOTEFILE CSTATION])» 
WRITE _ OK CTAPEFILE)); 
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WAIT 
Example Program: 
DECLARE ODT_INPUT CHARACTER (€3C)» 
START_POSITION FIXED> 
EVENT FIXEDs 


FILE DISKFILE CDEVICE = DISK» 
RECORDS = 30/6)>3 


DISPLAY C"THIS PROGRAM USES INPUT ACCEPT FROM THE ODT TO WRITE TO A®™ 
CAT * FILE CALLED DISKFILE}j ENTER BYE AT ANYTIME TO GO TO EOI") 
OPEN DISKFILE OUTPUT NEW; 
START_POSITION c= 1s 
DO FOREVER? 
EVENT 3= WAIT CSTART_POSITION] CTIME_TENTHS €100)» 2% WAIT 10 SECONDS 
SPO_INPUT_PRESENT» 
WRETE_OK CDISKFILE))> 


CASE EVENTS 
Ze 0 */ DISPLAY ("10 SECONDS HAVE PASSED SINCE LAST WRITE"); 
f*® i */ DOz 
ACCEPT ODT_INPUT> 
IF ODT_INPUT = “BYE™ THEN DOQ3 
DISPLAY ("GOOD BYE™)> 
CLOSE DISKFTLE LOCK; 
STOPs 
END> 
DISPLAY C"ODT INPUT ACCEPTED AND WRITE INITIATED"); 
WRITE DISKFILE CODT_INPUT)> 
END» 
/* 2 */ ODO FOREVERS 
DISPLAY ("0K TO WRITE =~ ENTER DATA FOR WRITE™)s 
IF WAIT CTIME_LTENTHS €100)» SPO_INPUT_PRESENT) THEN UNDO> 


ENDs 
END CASEs 

ENDs 

FINI; 

% This example program uses the WAIT verb to suspend the program 
% until either 10 seconds have expired» the operator has queued 

%Z a message to the programs or the buffer of DISKFILE is empty. 

% If a message is queued to the programs the message is written 

% to DISKFILE.~ If BYE is entered the program goes to end of jobe 
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WRITE 
The WRITE verb causes the SDL/UPL program to write a record to the specified file. 


The file attributes in the FILE declaration statement determine which of the position options (<record- 
address-identifier >, <remote-key-identifier >, <queue-family-identifier >, or carriage control keyword 
or <channel-number >) can be specified. <record-address-identifier > requires a file with a disk device 
type and random access or a card device type with the STACKERS open attribute specified at file open 
time. <remote-key-identifier > requires a file with a device type equal to REMOTE. < queue-family- 
identifier > requires two file attributes to be specified in the FILE declaration. A device type equal 
to QUEUE and the QUEUE__FAMILY._SIZE equal to the number of queue families are required. 
A device type equal to PRINTER is required for the carriage control position options. 


SDL and UPL Syntax: 


Ow epee ee ee 
LOCK <switch-file-id> (<identifier-1> ) 


NO 
PAGE 
SINGLE —————____———__-- 


<channel-number> 
[ <record-address-identifier> ] 
— <remote-key-identifier> — 
<queue-family-identifier> ————— 
eat aera aa (<record> ) —— 
TOP 
Gi Nene rs 
WITH RESULT_MASK <address-generator> aa 
—_ ON EOF <statement-1>; ee 


[ ON EXCEPTION <statement-2> ; see! 
[_ ON INCOMPLETE_!O <statement-3> ; a oi . 


Syntax Semantics: 


address-generator 
This field can be any valid SDL/UPL address generator and specifies the name of the exception 
mask field. 
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LOCK 
The keyword LOCK reserves a disk record for exclusive use of the program until a write 
operation is performed that does not specify LOCK. 


file-identifier 
This field can be any valid SDL/UPL file identifier that is declared in the FILE declarations and 
specifies the file in which the write operation is to take place. 


switch-file-id 
This field can be any valid SDL/UPL switch-file identifier that is declared in the FILE declara- 
tions and specifies the file in which the write operation is to take place. 


identifier-1 
This field can be any valid SDL/UPL identifier and specifies the switch file number. 


DOUBLE 
The keyword DOUBLE is used for files that are declared with a device type equal to PRINTER 
and causes the paper on the line printer to space forward two lines. 


NEXT 
The keyword NEXT is used for files that are declared with a device type equal to PRINTER 
and causes the paper on the line printer to skip to the next channel. 


NO 
The keyword NO is used for files that are declared with a device type equal to PRINTER and 
causes the paper on the line printer not to space forward. 


PAGE 
The keyword PAGE is used for files that are declared with a device type equal to PRINTER 
and causes the paper on the line printer to space to the top of page. 


SINGLE 
The keyword SINGLE is used for files that are declared with a device type equal to PRINTER 
and causes the paper on the line printer to space forward one line. 


channel-number 
This field can be any valid SDL/UDL integer and is used for files that are declared with a de- 
vice type equal to PRINTER. < channel-number > specifies the channel number to advance 
to. The valid values for < channel-number > can be between 1 and 12, inclusive. 


record-address-identifier 
This field can be any valid SDL/UPL identifier and specifies the key location of a record within 
a file. <record-address-identifier > is valid for files with a device type equal to DISK RANDOM 
and DISK__PACK RANDOM. <record-address-identifier > is also valid for card files that are 
opened with the STACKERS open attribute. 


<record-address-identifier > must be a binary value or an expression that returns a binary value. 
If the value is greater than 24 bits, only the rightmost 24 bits are used. For card files, the binary 
value of <record-address-identifier > must be less than or equal to 7, corresponding to a stacker 
available on the device. For example, if only two stackers are available on the card device, <rec- 
ord-address-identifier > equal to 3 is not valid. 
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remote-key-identifier 
This field can be any valid SDL/UPL identifier and specifies the relative station number (RSN) 
in the remote file to which the record is to be written. 


<remote-key-identifier > is valid for files with a device type equal to REMOTE. The data type 
of <remote-key-identifier > must be equal to CHARACTER with a length of 10 bytes. The first 
three bytes (relative station number) of <remote-key-identifier > defaults to the character ‘‘001”’ 
if the maximum number of stations in the remote file is equal to 1. The maximum number of 
stations is specified in the FILE declarations. For example, specifying the following file attributes 
for a remote file causes the maximum number of stations for the remote file to be five. 


(DEVICE = REMOTE, NUMBER__OF_STATIONS = 5, REMOTE_KEY) 
Refer to the REMOTE_KEY file attribute for the format of <remote-key-identifier>. 


queue-family-identifier 
This field can be any valid SDL/UPL identifier and specifies the family number in the queue 
file in which to write the record. 


< queue-family-identifier> is valid for files with a device type equal to QUEUE and with the 
QUEUE__FAMILY__SIZE greater than 1. 


TOP 
The keyword TOP is used for files that are declared with a device type equal to QUEUE and 
causes the record to be written at the front of the queue instead of at the tail. If a record is 
written at the front, a program that reads from the queue file reads this record. 


record 
This field can be any valid SDL/UPL literal, identifier, or expression that returns a value and 
specifies the data record to be written. 


ON EOF 
For printer files, the keywords ON EOF cause the program to perform <statement-1> if the 
end of page was encountered on the line printer. A printer file can take the ON EOF branch 
on reaching the end of page if the END_.OF__PAGE__ACTION file attribute is specified in the 
FILE declaration statement. 


For queue files, the keywords ON EOF cause the program to perform <statement-1> if the val- 
ue of <queue-family-identifier> was out of range. 


ON EXCEPTION 
The keywords ON EXCEPTION cause the program to perform <statement-2> when an excep- 
tion is encountered on the write operation and all the MCP retries are exhausted. For queue files, 
<statement-2> is performed when <queue-family-identifier > is out of range. 


ON INCOMPLETE__IO 
The keywords ON INCOMPLETE_IO cause the program to perform <statement-3>. For 
queue files, the INCOMPLETE_IO branch is performed when the number of records in the 
queue contains the value specified in QUEUE_.MAX__MESSAGES file attribute. For other files, 
the INCOMPLETE__IO branch is performed when the write operation could not complete be- 
cause the MCP had not physically completed writing the previous record. This occurs frequently 
with printer files. 
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statement-1 
This field can be any valid SDL/UPL statement and is performed when the ON EOF keywords, 
are specified in the WRITE statement for a printer file, and the end of the page is encountered 
on the line printer during the write operation. For queue files, if an exception occurs, the value 
for <queue-family-identifier> is out of range. 


statement-2 
This field can be any valid SDL/UPL statement and is performed when the ON EXCEPTION 
keywords are specified, an exception is encountered, and the MCP has exhausted all the retries. 


statement-3 
This field can be any valid SDL/UPL statement and is performed when the ON 
INCOMPLETE__IO keywords are specified for a queue file and the queue is full, or the write 
operation could not complete because the previous write operation was not complete. 


WITH RESULT__MASK 
The keywords WITH RESULT__MASK cause the program to use <address-generator> as the 
exception mask identifier. 


Variable-Length Records 


The syntax of variable-length record write operations is identical to the syntax on fixed length records; 
however, the structure of the identifier and the value of the length field for the data differ from those 
for a fixed-length identifier. 


Variable-length records are allowed only in tape and serial disk files that are declared with the file attri- 
bute VARIABLE. The RECORDS file attribute of the file must be large enough to hold the largest 
record to be written. 


The first four bytes (characters) of the variable-length identifier contain record length information. On 
write operations, this record-size value must be included in the record. 


The record length is equal to the number of bytes in the record plus the number of bytes in the record- 
size field (always 4). The record size is specified as a decimal value. 


Example Program that Writes Variable-Length Records: 


FILE PAYROLL CCEVICE = CiSK» VARIAGLE)D; 


CECLARE OL CISK_FECERE CHAFACTERCS8O )» 
O02 RECL SIZE CHARACTER C4)> 
O02 DATA CHARACTERC75 Ds» 
X REFERENCES 


CATA t= "ABCDE"S 
REFER X TC CATA; 

REDUCE X UNTIL LaST NEG * "3 
REC SIZE t= LENGTECX) 4 43 
WRITE PAYROLL COLSK_RECCRD)3 
CLOSE PAYROLL LOCK; 

STUP; 

FINI; 
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To process variable-length records, the MCP builds a single buffer whose size is equal to the declared 
record size multiplied by the blocking factor. Variable-length records usually have a blocking factor 
equal to 1 (RECORDS = N/1). The MCP reads into its buffer as many complete logical records as 
it can. Logical records are not divided across physical record boundaries. 


The following table shows example record numbers and associated record sizes in bytes. Assume the 
program specifies a record size equal to 240 bytes and the records and record sizes are: 


Record Data Record Size in Bytes 
Number (Including Record Size Field) 


A bBhWN 
ioe) 
om) 


Figure 9-7 shows the contents of the 240-byte program buffer after a write operation is performed. 


Record 1 * Record 2 am Record 3 = 49 empty bytes 
48 bytes * 63 bytes = 80 bytes - (hex Zeroes) 
{|___________ 240 bytes ———_—_ 


G18310 


Figure 9-7. Contents of Program’s Buffer After a Write Operation 


Only records 1, 2, and 3 are written into the buffer because the next record (record 4) is too long 
to be stored in the remaining portion of the buffer. The unused portion of the buffer is filled with 
hexadecimal zeros. 


Examples: 


WRITE CISKFILE CFIELD)s % Writes to the fite 
CN EGF STOP; % tabeted NISKFILE. 


WRITE CISK CINCDEX] CFIELC); Z Writes to the fite 
ON EGF STOPS % tabeted OISK at 
CN EXCEPTION OISPLAY CTEXCEPTION™)>; % record address = 
% the value of INDEX. 


WRITE GUEUEFILE CNUMBER] CFIELD)s % Writes to the file 
CN INCOMPLETE_I[C DISPLAY C"QUEUE FULL")> % Labeted QUEUEFILE 
GCN EXCEPTION CISFLAY C*INVALID KEY"); X at aqueue family = 
% the vatue of 
xX NUMBER. 


WRITE REMOTEFILE CKEY] CFIELC), 
CN EXCEPTICN DISPLAY C®INVALID KEY"); 


Writes to the file 
tabeted REMCTEFILE 
at remote key = the 
vaitue of KEY. 


ee WR ze a 
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DECLARE ODT_INPUT CHARACTER (€30)5 


FILE DISK CDEVICE = DISK» 
RECORDS = 30/6)» 


PRINT CDEVICE = PRINTER» 
RECORDS = 1532/1)» 


TAPE CDEVICE = TAPE» 
RECORDS = 180/1)> 


CARD CDEVICE = PUNCH BACKUP DISK» 
RECORDS = 80/153 


OPEN DISK OUTPUT NEW? 
OPEN PRINT OUTPUT NEWs 
OPEN TAPE OUTPUT NEW> 
OPEN CARD OUTPUT NEW> 
DO MAIN _LOOP FOREVER; 


WRITE 


DISPLAY C"ENTER ANY 30 CHARACTERS FOR THE DATA RECORD OR ENTER® 


CAT ™ BYE FOR EDJ")s 
ACCEPT ODT_INPUT> 
IF ODTLINPUT = "“BYE™ THEN UNDO MAIN_LOOPS 


WRITE DISK CODT_INPUT)> 
ON EXCEPTION DOs 


DISPLAY C™EXCEPTION ENCOUNTERED 


UNDO MAIN_LOOP> 
END> 


WRITE PRINT CODT_INPUT)3$ 
ON EXCEPTION DO; 


DISPLAY C™EXCEPTICN ENCOUNTERED 


UNDO MAIN_LOOP > 
ENDs 


WRITE TAPE CODT_INPUT)> 
ON EXCEPTION DOs 


DISPLAY C"™EXCEPTION ENCOUNTERED 


UNDO MAIN_LOOPS 
END; 


1137833 


ON DISK WRITE™)3 


ON PRINT WRITE™)3 


ON TAPE WRITE"); 
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WRITE 


WRITE CARD CODT_INPUT)3 
ON EXCEPTION Dos | 
DISPLAY C™EXCEPTION ENCOUNTERED ON CARD WRITE") 
UNDO MAIN_LOOP=? 
END3 


END MAIN_LOOPS 
DISPLAY ("GOOD BYE"); 
CLOSE DISK RELEASE? 
CLOSE PRINT RELEASES 
CLOSE TAPE RELEASE? 
CLOSE CARD RELEASE? 
STOPS 

FINI; 


% This example program accepts input from the ODT and uses the 


% WRITE verb to write to a disk» printers tape» and card filee 
x If BYE is entered» the program goes to end of job. 
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WRITE__FILE_ HEADER 


The WRITE__FILE__HEADER verb writes the disk file header information for the file specified by 
< file-identifier >. This verb is intended only for use in B 1000 system software, and extreme caution 
is advised when writing disk file header information. 


SDL Syntax: 


— WRITE_FILE_HEADER (<file-identifier> , <destination> ) ; ——-————_> 
1 ON FILE_MISSING <statement-1>; 
1 ON FILE_LOCKED <sstatement-2>; 


Syntax Semantics: 


file-identifier 

This field can be any valid SDL literal, identifier, or expression that returns a character value 
with a CHARACTER data type and specifies the name of the file. <file-identifier> is expected 
to be a 30-character value, where the first 10 characters are the pack identifier, the second 10 
characters are the multifile identifier, and the third 10 characters are the file identifier. Each of 
the file identifiers is left-justified in their respective fields. If only one file name exists, the file 
name is left-justified in the second 10 characters of the file name and the first and third 10 char- 
acters are set to blank. 


destination 
This field can be any valid SDL identifier and specifies the receiving field for the disk-file-header 
information. This field is expected to be from 576 to 4320 bits in length, depending upon the 
number of disk areas allocated for the file. 


ON FILE_MISSING 
The keywords ON FILE__MISSING cause <statement-1> to be performed if the file name spec- 
ified by <file-identifier> is not in the disk directory. 


ON FILE_LOCKED 
The keywords ON FILE_.LOCKED cause <statement-2> to be performed if the file name 
specified by <file-identifier> is opened by another program with the LOCK open option set. 


statement-1 
This field can be any valid SDL statement and is performed if the keywords ON 
FILE__MISSING are specified and <file-identifier> is not in the disk directory. 


statement-2 
This field can be any valid SDL statement and is performed if the keywords ON 
FILE__LOCKED are specified and <file-identifier> is currently opened with the LOCK open 
option set. 
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WRITE_FILE_HEADER 


Example: 


READ _FILE_HEADER CLISKFILE> SOURCE)? 
CN FILE_MISSING STOP; 
ON FILE_LUCKECD STLP5 


information in identifier 
SOURCE. 


DECLARE CISKFILE CHARACTER €30)> % The disk file header for 
SCGURCE PIT (€4320);5 % the file tdentifier 
CISKFILE 3= % USER/SMASTER/FILE is 
“USER MASTER FILE "> % written using the 
v7 
x 


Example Program: 


DECLARE FILENAME CHARACTER C€30)>» 
DESTINATION BIT €4320)» 
SOURCE BIT €4320)s 


DFH_LENGTK BIT (16)3 


DO MAIN_LOOP FOREVER; 
DISPLAY C™ENTER THE 30 CHARACTER FILE NAME LEFT JUSTIFIED OR ENTER * 
CAT “BYE TO GO TO EQJ™)3 
ACCEPT FILENAMES 
IF FILENAME = "BYE™ THEN DOs 
DISPLAY ("GOOD BYE*)> 
STOPS 
ENDS 
DQ READ_DFHs 
READ_FILE_HEADER CFILENAMEs DESTINATION)? 
ON FILE_MISSING Do? 
DISPLAY C"FILE * CAT FILENAME CAT 
"NOT IN THE DISK DIRECTORY"); 
UNDO READ_DFHs 
END? 
ON FILE_LOCKED DOs 
DISPLAY C"™FILE * CAT FILENAME CAT 
" IS LOCKED"); 
UNDO READ_CFHs 
END; 
END READ_DFHs 
DFH_LENGTH %= SUBBIT CDESTINATION» 91> 16) 
SOURCE = DESTINATION? 


WRETE_FILE_HEADER CFILENAMEs SUBBIT CSOURCE» O» DFH_LENGTH) )s 


DISPLAY C"™THE FOLLOWING DISK FILE HEADER INFORMATION WAS WRITTEN*™)3 
DISPLAY CCONVERT CSUBBIT CSOURCEs» O» DFH_LENGTH)» CHARACTER)); 

END MAIN_LOOPS 

FINIs 


% This example program accepts from the ODT a 30~character file name 
2 and rewrites the disk file header information on top of the 

ZX existing disk file header. If BYE is entered» the program goes 

% to end of job. 
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WRITE_FPB 


WRITE__FPB 


The WRITE__FPB verb writes the file parameter block (FPB) of the file indicated by < file-identifier > 
or <file-number> and uses the FPB information stored in <source>. 


SDL Syntax: 


— WRITE_FPB ( TT <file-identifier> — , “<source> ) ; —_____-- 


< file-number> 
Syntax Semantics: 


file-identifier 
This field can be any valid SDL file identifier and specifies the file name from which to write 
the FPB information. 


file-number 
This field can be any valid SDL switch file number and specifies the file number within the pro- 
gram from which to write the FPB information. 


source 
This field can be any valid SDL identifier and specifies the name of the field used to obtain the 
FPB information. The length of this field must be 2096 bits. 


Example: 


The file parameter block 
information of the file OISKFILE 
4 is stcred into identifier 

% FPB_INFG. 


DECLARE FPB_INFO EIT (€14640)3 
WRITE_FPB CCISKFILE> FFEE_INFC)s 


nwn 


Example Program: 


Refer to the READ__FPB verb for an example program using the WRITE__FPB verb. 
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WRITE__OVERLAY 


The WRITE__OVERLAY verb writes to the disk address specified in <overlay-information> and uses 
the data segment beginning and ending addresses specified in <overlay-information>. 


The WRITE__OVERLAY verb is used by the SDL intrinsics. 


SDL Syntax: 


—— WRITE_OVERLAY (<overlay-information>) ; ———H——_____________________ 


Syntax Semantics: 


overlay-information 
This field can be any valid SDL literal, identifier, or expression that returns a 76-bit value and 


has the following format. 


Bits Description 


0-3 EU = O (not used) 

4-27 _ Base-relative beginning address 

28-51  Base-relative ending address 

52-75 Disk address, relative to program area. 


Example: 

DECLARE O1 GVERLAY_RECCRC BIT €76)>» %Z The data segment at disk 
03 €U BIT C4)» % address ad0Q@A7Ea is 
03 BEGIN_ACTCh GIT (24) % stored in the program's 
03 END_AOQCR BIT (24)5» % basertottimit area 
03 CISK_ADCh BIT €24);3 Z beginning at e71E7AZa 

EU t= 1s % and ending at «71F 84204. 

HEGIN_ ADDR 2= G7LlEVA2 Gs 

END_ACCR s= a71F 84245 

CISK_ACOR = QOOFA7TERs 

WEITE_CVEFLAY COVEFLAY_RECOFRD); 
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X_ADD 
X__ADD 


The X__ADD verb causes the add operation to be performed with <expression-1> and <expression- 
2>. <expression-1> and <expression-2> are treated as bit strings and the full length of each is used, 
not just the rightmost 24 bits. 

If <expression-1> or <expression-2> are different lengths, the shorter is padded on the left with 
binary zeros. The length of the sum is equal to the length of the longer of <expression-1> or <ex- 
pression-2>. 


SDL and UPL Syntax: 


— X_ADD (<expression-1>, <expression-2> ) TT 


Syntax Semantics: 

expression-1 
This field can be any valid SDL/UPL expression and specifies the first operand for the extended 
arithmetic add operation. 

expression-2 
This field can be any valid SDL/UPL expression and specifies the second operand for the ex- 
tended arithmetic add operation. 

Examples: 


X s= X_ACC CaLSAFCHK ee a23574a)5 


X s= X_ACO CTIMERe CTIMER = 1009))3 
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X__DIV 


~The X__DIV verb causes the divide operation to be performed with <expression-1> and <expression- 
2>. <expression-1> is divided by <expression-2>. <expression-1 > and <expression-2> are treated 
as bit strings and the full length of each is used, not just the rightmost 24 bits. 

The length of the quotient is the length of <expression-1>. 


SDL and UPL Syntax: 


— X_DIV (<expression-1>, <expression-2> ) — _ 


Syntax Semantics: 

expression-1 
This field can be any valid SDL/UPL expression and specifies the first operand for the extended 
arithmetic divide operation. 


expression-2 
This field can be any valid SDL/UPL expression and specifies the second operand for the ex- 
tended arithmetic divide operation. 
Examples: 
X s= X DIV Ca5S6AFCGRKK Se 3235744 )5 


X t= X_OIV CTIMER® CTIMER = 1009))3 


9-232 


B 1000 Systems SDL/UPL Reference Manual 
Verbs 


X_MOD 
X__MOD 


The X__MOD verb causes the modulo operation to be performed with <expression-1 > and <expres- 
sion-2>. <expression-2> is the modulus. <expression-1> and <expression-2> are treated as bit 
strings and the full length of each is used, not just the rightmost 24 bits. 

The length of the residue is the length of <expression-1>. 


SDL and UPL Syntax: 


—— X_MOD (<expression-1>, <expression-2> ) 3 


Syntax Semantics: 

expression-1 
This field can be any valid SDL/UPL expression and specifies the first operand for the extended 
arithmetic modulo operation. 

expression-2 
This field can be any valid SDL/UPL expression and specifies the second operand for the ex- 
tended arithmetic modulo operation. 

Examples: 

X 2= X_MEOD Cal2s4SHK Ae @237480)3 


X = X_MCO CTIMER> CTIMER = 1000));3 
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X__MUL 


The X__MUL verb causes the multiply operation to be performed with <expression-1> and <expres- 
sion-2>. <expression-1> and <expression-2> are treated as bit strings and the full length of each 


is used, not just the rightmost 24 bits. 


The length of the product is the sum of the lengths of <expression-1> and <expression-2>. This 
sum cannot exceed 65,535 bits. 


SDL and UPL Syntax: 


—— X_MUL (<expression-1>, <expression-2> ) —__ 


Syntax Semantics: 
expression-1 
This field can be any valid SDL/UPL expression and specifies the first operand for the extended 
arithmetic multiply operation. 
expression-2 
This field can be any valid SDL/UPL expression and specifies the second operand for the ex- 
tended arithmetic multiply operation. 
Examples: 
X t= X_MUL Ca45SHKa» 323749)3 


X s= KX_MUL CTIMERe CTIMER = 10U0)); 


9-234 


B 1000 Systems SDL/UPL Reference Manual 
Verbs 


X__SUB 


The X__SUB verb causes the subtraction operation to be performed with <expression-1> and <ex- 
pression-2>. <expression-1> and <expression-2> are treated as bit strings and the full length of 
‘each is used, not just the rightmost 24 bits. 


If <expression-1 > and <expression-2> are of different lengths, the shorter is padded on the left with 
binary zeros. The length of the difference is equal to the length of the longer of <expression-1> or 
<expression-2 >. 


SDL and UPL Syntax: 


—— X_SUB (<expression-1>, <expression-2> ) —_——_ 


Syntax Semantics: 

expression-1 
This field can be any valid SDL/UPL expression and specifies the first operand for the extended 
arithmetic subtraction operation. 

expression-2 
This field can be any valid SDL/UPL expression and specifies the second operand for the ex- 
tended arithmetic subtraction operation. 


Examples: 


xX: 


Hi 


MX SUE CAIROFFEKRA+ a23749)3 


X = X_SUE CTIMER, CTIMWER ~- 1000)); 
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ZIP 


The ZIP verb passes control information to the MCP. 


SDL and UPL Syntax: 


—— ZIP <(MCP-command> ; OS 


Syntax Semantics: 


MCP-command 
This field can be any valid SDIL/UPL literal, identifier, or expression that returns a value and 
specifies a valid MCP control statement as defined in the B 1000 Systems System Software 
Operation Guide, Volume 1, form number 1108982. 


Examples: 
ZIP "SC GPEN"; %Z Sets the OPEN option in the MCP. 
ZIP “EX Cer ALL™; % Begins the execution of the 


% DMPALL program. 


ZIP “COMPILE PRINT UPL SYNTAX", % Program PRINT is to be compited 
% for syntax only. 


ZIP “SV LPA"S % The MCP is requested to reserve 
% tine printer LPA. 
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COMPILER OPTIONS AND PASSES 


This section describes the compiler options and the conditional compilation facility available in the 
SDL/UPL compiler. Additionally, a brief description of the function of the four passes of the SDL/ 
UPL compiler is presented. 


COMPILE DECK 


The compile deck is a card file that contains the MCP control commands and the SDL/UPL source 
program. 


To compile an SDL/UPL program from cards, the following control cards are required: 


2COMPILE <programtnagre> hITH UFL LIBRARY 
ZOATA CARES 


<SDOL/UPL source c3ards> 


ZEND 
To compile an SDL/UPL program from a disk file, the following control information is required: 


?COMPILE <program-name> WITH UPL LIBRARY; 
?FILE CARDS NAME <disk-file-name> DISK DEFAULT; 


SDL/UPL COMPILER FILES 


The following are the files used by the SDL/UPL compiler. 


File Description 
CARDS Input file to read source records. 
SOURCE Primary source if the $MERGE compiler-directing 


option is specified. 


NEWSOURCE Updated source output file if the $NEW 
compiler-directing option is specified. 


LINE Line printer file used to print the compile source 
listing. 


ERROR.LINE _ Line printer file used to print errors generated 
during the compile. 


1137833 10-1 


B 1000 Systems SDL/UPL Reference Manual 
Compiler Options and Passes 


The $NEW compiler-directing option creates a source file on disk that can have other source images 
merged during compilations. 


Example 


To compile using a source file on disk and to merge additional source images, use the following control 
information. 


2CGMPILE <proaram7*rame> WITH UPL LIBRARY 
<file statement fcr SCURCE file> 
<filte statement fer NEKSGURCE file> 
FOATA CARDS 
£ MERGE 
f NEW 


<UPL source imaces tc be nerqed> 


FANG 
FEAC 


10-2 


B 1000 Systems SDL/UPL Reference Manual 
Compiler Options and Passes 


COMPILER-DIRECTING OPTIONS 


All compiler option control records must have an ampersand (&) or dollar sign ($) character in position 
1. The keywords can appear anywhere from positions 2 through 72 and must be separated by a blank 
character. Positions 73 through 80 are reserved for the sequence numbers. 


SDL Syntax: 


$ - 
Lc, 
“ <multi-file-id>” 
Eo ee ee B 
A C 


CSSIZE <cssize-number> 

DEBUG <sequence-number> 
DYNAMICSIZE <dynamicsize-number> 
ESSIZE <essize-number> 
INTERPRETER “ <file-identifier>” 


RECOMPILE 


CREATE_MASTER 


INTRINSIC “ <multi-file-identifier> ” 
LIBRARY “ <file-identifier>” 
LIBRARY_PACK “ <pack-identifier>”’ 
MERGE 
NSSIZE <cnssize-number> 
PAGE 
PPSSIZE <ppssize-number> 
RECOMPILE_TIMES 
SEQ <base-sequence-number> 
+ <increment> 

VOID 

<ending-sequence-number> 


VSSIZE <vssize-number> 
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NO ADVISORY 
AMPERSAND 
CHECK —---——— 
CODE ——_-————— 
CONTROL -———— 
CONVERTDOTS 
DETAIL — 
DOUBLE —-————— 
ERROR_FILE 
EXPAND_DEFINES 
FORMAL_CHECK 
FREEZE —-———— 
LIST 
LISTALL — 


LOCKI —---———— 
MONITOR - 

MONITOR_OFF 
NESTED_PROCEDURE_TIMES 
NEW 
NO_DUPLICATES 
NO_SOURCE 
PASS_END- 
PROFILE — 


PPROFILE - 
SGL 
SINGLE —--——— 
SIZE 
SUPPRESS - 

TIME_BLOCKS 


TIME_MCP 

TIME_PROCEDURES 
UNDERSCORES_IN_FILE_NAMES 
USEDOTS - 

WORKING _SET_BYTES 
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UPL Syntax: 


a es 


A>! 
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XMAP 

XREF 
XREF_LITERALS 
XREF_ONLY 


CREATE_MASTER RECOMPILE 


CSSIZE <cssize-number> 

DEBUG <sequence-number> 
DYNAMICSIZE <dynamicsize-number> 
ESSIZE <essize-number> 
INTERPRETER “ <file-identifier> ” 
INTRINSIC “ <multi-file-identifier>'’ —— 
LIBRARY * <file-identifier. oi 
LIBRARY_PACK “ <pack-identifier> ” 
MERGE 

NSSIZE <cnssize-number> 

PAGE 

PPSSIZE <ppssize-number> 
RECOMPILE_TIMES - 

SEQ <base-sequence-number> 


VOID 


<ending-sequence-number> 
VSSIZE <vssize-number> 


“ <multi-file-id> ” 


+ <increment> 
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NO ADVISORY - 
AMPERSAND 
CHECK —-- 
CODE ——- 
CONTROL - 
CONVERTDOTS 
DETAIL — 


DOUBLE — 
ERROR_FILE 
EXPAND_DEFINES 
FORMAL_CHECK 
FREEZE — 

LIST 


LISTALL — 
LOCKI —- 
NESTED _PROCEDURE_TIMES 
NEw ——- 

NO_DUPLICATES 
NO_SOURCE 

PASS_END 

SGL 
SINGLE —---——— 
SIZE ——-——— 


SUPPRESS - 

TIME_BLOCKS 

TIME_MCP 

TIME_PROCEDURES 
UNDERSCORES_IN_FILE_NAMES 
USEDOTS - 
WORKING_SET_BYTES 

XMAP —— 


REE 
XREF_LITERALS 
XREF_ONLY — 
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Syntax Semantics: 


$ 
The dollar sign ($) character must be specified in the first position of the control record. If a 
new source file is to be generated by the SDL/UPL compiler, the dollar sign ($) character in 
this control record causes the control record to be excluded in the new source file which is labeled 
NEWSOURCE. 


The ampersand (&) character must be specified in the first position of the control record. If a 
new source file is to be generated by the SDL/UPL compiler, the ampersand (&) character causes 
this control record to be included in the new source file. 


ADVISORY 
The keyword ADVISORY causes the SDL/UPL compiler to include advisory messages in the pro- 
gram listing. The default is to include advisory messages. 


AMPERSAND 
The keyword AMPERSAND causes the SDL/UPL compiler to include the control records that 
contain the ampersand (&) character in the first position. 


base-sequence-number 
This field can be any 8-digit number and specifies the sequence number where resequencing of 
the source file is to begin. The field is used in conjunction with the SEQ keyword and defaults 
to 1000. 


CHECK 
The keyword CHECK causes the SDL/UPL compiler to check the source file for sequence errors. 


CODE 
The keyword CODE causes the SDL/UPL compiler to list the generated S-machine code in the 
program listing. 


CONTROL 
The keyword CONTROL causes the SDL/UPL compiler to list the compiler control record in 
the program listing. 


CONVERTDOTS 
The keyword CONVERTDOTS causes all the period (.) characters to be converted to underscore 
(__) characters for all the SDL/UPL compiler output files. This control option does not change 
the period (.) character in file identifiers to the underscore (__) character. 


CREATE__MASTER 
The keyword CREATE__MASTER causes the master information file to be created for subse- 
quent partial compilation. This control option must be specified in the first record in the source 
file. 


The XMAP compiler option is not allowed when the CREATE__MASTER compiler option is 
specified. 


CSSIZE 
The keyword CSSIZE causes the control stack to be changed to the value specified by <cssize- 
number >. The SDL/UPL compiler determines the default control stack size used for each pro- 
gram based on standard algorithms. 
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cssize-number 
This field can contain any number and specifies the number of entries in the control stack. 


DEBUG 
The keyword DEBUG is only for use in debugging the SDL/UPL compiler. 


DETAIL 
The keyword DETAIL causes all define identifiers used in the SDL/UPL program to be expanded 
in the program listing. 


DOUBLE 
The keyword DOUBLE causes the program listing to be double spaced. 


DYNAMICSIZE 
The keyword DYNAMICSIZE causes the amount of dynamic memory (in bits) specified by 
<dynamicsize-number > to be used for paged-array pages. The SDL/UPL compiler generates a 
default value based on standard algorithms. 


dynamicsize-number 
This field can contain any number and specifies the amount of dynamic memory in bits to use 
for paged-array pages. 


ending-sequence-number 
This field can be any 8-digit number and specifies the upper-bound sequence number of the 
source records to be excluded in the new source file and compilation of the program. This field 
is used in conjunction with the VOID keyword. 


ERROR__FILE 
The keyword ERROR__FILE causes a separate file to be created: this file contains only syntax 
errors and warning messages for applicable source images generated during the compilation of 
the SDL/UPL program. 


ESSIZE 
The keyword ESSIZE causes the number specified by <essize-number> to be used for the 
evaluation stack size. The SDL/UPL compiler determines the default evaluation stack size used 
for each program based on standard algorithms. 


essize-number 
This field can contain any number and specifies the number of entries allowed in the evaluation 
stack. 


EXPAND__DEFINES 
The EXPAND__DEFINES keyword causes all identifiers used in define identifiers to be included 
in the cross-reference file. This keyword is used in conjunction with the compiler options XREF 
and XREF__ONLY. 


file-identifier 
This field can be any file identifier that follows the B 1000 file-naming convention and specifies 
the file name of the interpreter or the file name of a library file. 


FORMAL__CHECK 
The keyword FORMAL__CHECK causes the actual parameters and values passed to or returned 
from procedures to be checked against their corresponding formal parameters and procedure for- 
mal types. 
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FREEZE 
The keyword FREEZE causes the freeze bit to be set in the object of the File Parameter Block 
(FPB) of the program, and prevents the run structure nucleus of the program from being rolled 
out to disk during execution. 


increment 
This field can contain any number and specifies the number with which to increment the sequence 
number. This field is used in conjunction with the SEQ keyword and defaults to 1000. 


INTERPRETER 
The keyword INTERPRETER changes the name of the interpreter to the name specified by 
< file-identifier>. The default interpreter name is SDL/INTERPIS. 


INTRINSIC 
The keyword INTRINSIC changes the multifile identifier of the intrinsic files that are to be used. 
The default multifile identifier is SDL.INTRIN. 


LIBRARY 
The keyword LIBRARY causes the SDL/UPL compiler to include the source records in the file 
specified by <file-identifier> in the compilation of the program. 


LIBRARY_ PACK 
The keyword LIBRARY__PACK causes the SDL/UPL anise: to expect all library files to be 
on the disk pack specified by <pack-identifier >. 


LIST 
The keyword LIST causes the program listing to be created. The default is to create the program. 
listing. 


LISTALL 
The keyword LISTALL causes all of the source file to be listed in the program listing, whether 
or not it was conditionally excluded. Specifying LISTALL turns on LIST while NO LISTALL 
does not turn off LIST. To turn both options off, specify NO LIST. 


LOCKI 
The keyword LOCKI causes the intermediate work files of the SDL/UPL compiler to be locked 
in the disk directory as they are created. 


MERGE 
The keyword MERGE specifies that the primary source file is in a tape or disk file labeled 
SOURCE and the secondary or merging file is a card file labeled CARDS. The card file is merged 
with the tape or disk file based on the sequence number of the input records. 


MONITOR 
The keyword MONITOR causes the run-time tracing of procedure calls to be invoked. 


MONITOR_OFF 
The keyword MONITOR__OFF causes the MONITOR option to be reset. 


multi-file-id 
This field can be any multifile identifier that follows the B 1000 file-naming convention. 
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NEW 
The keyword NEW causes a new source file labeled NEWSOURCE to be created. 


NO 
The keyword NO turns off the applicable compiler option that follows the keyword NO. 


NO__DUPLICATES 
The keyword NO__DUPLICATES causes the SDL/UPL compiler to suppress the check for 
unique identifiers in the source file. This reduces the amount of time needed to compile the pro- 
gram. 


NO__SOURCE 
The keyword NO__SOURCE causes the SDL/UPL compiler to suppress creation of a program 
listing. This option shortens the size of the SDL/UPL work files and decreases the compile time. 


NSSIZE 
The keyword NSSIZE causes the number specified by <nssize-number> to be used as the name 
stack size. The SDL/UPL compiler generates the default name stack size used by each program 
based on standard algorithms. 


nssize-number 
This field can contain any number and specifies the number of entries allowed in the name stack. 


pack-identifier 
This field can be any valid pack identifier that follows the B 1000 file-naming convention and 
specifies the disk pack name for library files. 


PAGE 
The keyword PAGE causes the SDL/UPL compiler to continue printing the program listing on 
the top of a new page. 


PASS__END 
The keyword PASS__END causes the SDL/UPL compiler to display the total number of syntax 
errors that have been generated and the total elapsed processor time at the end of each pass of 
the compiler. 


PPSSIZE 
The keyword PPSSIZE causes the number specified by <ppssize-number > to be used as the pro- 
gram pointer stack size. The SDL/UPL compiler generates the default program pointer stack used 
by each program based on standard algorithms. 


ppssize-number 
This field can contain any number and specifies the number of entries allowed in the program 
pointer stack. 


PROFILE 
The keyword PROFILE causes a dynamic array to be generated. Each element in the array is 
a counter of the number of times that a transfer of control statement (DO-group, IF statement, 
or CASE statement) is performed. An index into the array appears in the program listing fol- 
lowing the statement in which control is transferred. The statements with the highest counter val- 
ue are the most used statements. 
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PPROFILE 
The keyword PPROFILE causes a dynamic array to be generated. Each element in the array is 
a counter of the number of times that a procedure is entered. An index into the array appears 
in the program listing following the procedure declaration. The procedures with the highest count- 
er value are the most used procedures. 


RECOMPILE 
The keyword RECOMPILE invokes the partial compilation facility of the SDL/UPL compiler 
using master information files from a previous compile in which the CREATE__MASTER control 
option was specified. The RECOMPILE keyword must appear in the first source record to the 
SDL/UPL compiler. 


The XMAP compiler option is not allowed when the RECOMPILE compiler option is specified. 


RECOMPILE__TIMES 
The keyword RECOMPILE__TIMES causes the SDL/UPL compiler to print the start and stop 
times of each phase of the binding pass when the CREATE__MASTER or RECOMPILE control 
option is specified. 


SEQ 
The keyword SEQ causes the file labeled NEWSOURCE to be resequenced using <base-se- 
quence-number > as the beginning sequence number and <increment> as the incrementing value. 
The default is to begin at sequence number 1000 and to increment by 1000. 


SGL 
Refer to the SINGLE keyword. 


SINGLE 
The keyword SINGLE causes the program listing to be single spaced. The default is single space. 


SIZE 
The keyword SIZE causes the SDL/UPL compiler to print the code segment sizes by name at 
the end of the program listing. 


SUPPRESS 
The keyword SUPPRESS causes the SDL/UPL compiler to suppress warning messages in the pro- 
gram listing. To suppress sequence error messages, specify NO CHECK. 
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UNDERSCORES__IN__FILE__NAMES 
The keyword UNDERSCORES__IN__FILE__NAMES is used in conjunction with the CON- 
VERTDOTS compiler option and causes all the period (.) characters in a file identifier to be con- 
verted to the underscore (__) character. 


USEDOTS 
The keyword USEDOTS allows the use of the period (.) character as a separator in identifiers. 
The period (.) character separator remains in all output file identifiers. 


VOID 

The keyword VOID interacts with certain records in the file labeled SOURCE. All records that 
have a sequence number which is equal to the sequence number on the VOID compiler option 
record and up to the sequence number specified by <ending-sequence-number> are excluded in 
the NEWSOURCE file and in the compilation. If <ending-sequence-number> is not specified, 
only the record with the sequence number corresponding to the sequence number of the VOID 
control option is omitted. The VOID control option does not delete records in the secondary 
source file that is labeled CARDS. 


VSSIZE 
The keyword VSSIZE causes the number specified by <vssize-number> to be used as the value 
stack size. The SDL/UPL compiler generates the default value stack size used by each program 
based on standard algorithms. 


vssize-number 
This field can contain any number and specifies the size in bits of the value stack. 


XMAP 
The keyword XMAP causes the SDL/UPL compiler to generate a file for use by the SDL/XMAP 
program. The S-machine code generated is associated with the sequence number in the source file. 
The name of the file passed to the SDL/XMAP program is XMAPnnnnnn, where nnnnnn is the 
job number of the compile. The file attributes of the cross-map printer file can be controlled 
through the use of XMAP__LINE internal file identifier in the SDL/UPL compiler. 


The XMAP compiler option is not allowed with a partial recompilation or a create-master com- 
pile. The partial recompilation is invoked by the RECOMPILE compiler option and the create- 
master compile is invoked by the CREATE__MASTER compiler option. 


XREF 

The keyword XREF causes the SDL/UPL compiler to generate a file for use by the SDL/XREF 
program in which all identifiers specified in the source file are printed in alphabetical order with 
the associated sequence number. The name of the file passed to the SDL/XREF program by the 
SDL/UPL compiler is XREFmmddyy/<time>, where mm is the month, dd is the day, yy is 
the year, and <time> is the current system time. The file attributes of cross-reference printer 
file can be controlled through the use of XREF__LINE internal file identifier in the SDL/UPL 
compiler. The EXPAND__DEFINES compiler directing option must be specified in order for the 
SDL/UPL compiler to cross reference define identifiers. 
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XREF__LITERALS 

The keyword XREF__LITERALS causes the SDL/UPL compiler to generate a file for use by 
the SDL/XREF program in which all literals specified in the source file are printed in alphabetical 
order with the associated sequence number. The name of the file passed to the SDL/XREF pro- 
gram by the SDL/UPL compiler is XREFmmddyy/ <time>, where mm is the month, dd is the 
day, yy is the year, and <time> is the current system time. The file attributes of cross-reference 
printer file can be controlled through the use of XREF__LINE internal file identifier in the SDL/ 
UPL compiler. When used in conjunction with the XREF compiler option, the literals and identi- 
fiers are merged together into the same file. 


XREF_ONLY 

The keyword XREF_ONLY causes the SDL/UPL compiler to generate a file for use by the 
SDL/XREF program in which all identifiers specified in the source file are printed in alphabetical 
order with the associated sequence number. The name of the file passed to the SDL/XREF pro- 
gram by the SDL/UPL compiler is XREFmmddyy/<time>, where mm is the month, dd is the 
day, yy is the year, and <time> is the current system time. The file attributes of cross-reference 
printer file can be controlled through the use of XREF__LINE internal file identifier in the SDL/ 
UPL compiler. The SDL/UPL compiler does not compile the program. The EXPAND__- 
DEFINES compiler directing option must be specified in order for the SDL/UPL compiler to 
cross reference define identifiers. 


Examples: 

Fositicrs in the Source Record 
P ieecesemoseeced: OE Rea eee eee a Lea A Roa es eaeere CHES TET 
R XFEF XMAP XFEF_LLITERALS CHECK FORMAL_CHECK 00000100 
R LIBFARY “CEFINES*™ 00000200 


R LIST CONTROL 
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CONDITIONAL COMPILATION 


The conditional compilation facility selectively includes or excludes blocks of source images without 
physically adding or removing the source images. 


The conditionally included records are always written to a new file (if one is created), whether or not 
the records are compiled. However, if the conditionally excluded records are to be printed with the 
source listing, the LISTALL compiler option must be specified. If the LISTALL compiler option is 
not specified, only those conditionally included source images that are compiled are printed. 


All source images containing conditional compilation statements must have an ampersand (&) character 
In position 1 of the record, with the exception of <nested-block>. In addition, a complete conditional 
inclusion statement must be contained in one ampersand record. The conditional statement can be spec- 
ified in free-form format on the source record in positions 2 through 72. Positions 73 through 80 can 
contain sequence numbers. 


SDL and UPL Syntax: 


ne eee eee 


—— & i SET << boolean-identifier> 
RESET 


—& IF << boolean-identfier> ————————"— ———$—$—$—e > 
NOT AND 
OR 


—— <source-images> i ie 
<nested-block> —————- ELSE —— <source-images> 


—— <nested-block> 


>——— END SSS SSS SS 
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Syntax Semantics: 


& 

The ampersand (&) character specifies that a conditional compilation statement follows. 
SET 

The keyword SET causes <boolean-identifier> to have a TRUE value. 
RESET 


The keyword RESET causes <boolean-identifier> to have a FALSE value. 


boolean-identifier 
This field can be any identifier and specifies the boolean indicator used to set, reset, or to test 
in. the IF condition compilation statement. 


IF 
The keyword IF designates <boolean-identifier> to be tested for a TRUE or FALSE value. 


NOT 
The keyword NOT negates the current value of <boolean-identifier> in the test for a TRUE 
or FALSE value. 


AND 
The keyword AND requires that the two boolean identifiers both evaluate to a TRUE value in 
order for the condition to be TRUE. 


OR- . 
The keyword OR requires that at least one of the boolean identifiers evaluate to a TRUE value 
in order for the condition to be TRUE. 


source-images 
This field can have any group of valid SDL/UPL statements specified and are included in the 
compilation of the program if the evaluation of the IF condition is TRUE. 


nested-block 
This field can be another IF conditional compilation statement. 


ELSE 


The keyword ELSE causes <source-images> or <nested-block> to be included in the 
compilation of the program if the evaluation of the IF condition is FALSE. 
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Example: 


The following is the result of compiling the example. 


Positions in the Source Record 


+ | | (om tee oes cee weseeeeee 2772 Se ees ens avss encase saeaeeuwe= > | 737-80 


& SET A B DEBUG 00000100 
& RESET DE 00000200 
DECLARE CAeB) FIXED? 00000300 
& If A AND E 00000400 
A 3= Bs 00000500 
& ELSE 00000600 
A *= B CAT Bt5S; ZWHOLE SCURCE IMAGE [53 INCLUDED 00000700 
& IF DEBUG 00000800 
B s= As 00000900 
& END 00001000 
& END 00001100 
& IF 8B OR D 00001200 
BUMP Bs 00001300 
& ELSE 00001400 
BUMP A> 00001500 
& END 00001600 


The foltowing is the result of compiling the exanpie. 


DECLARE €A-B) FIXEDs 00000300 
A == B CAT Bt5ss ZWHOLE SOURCE IMAGE IS INCLUDED 00000700 
B 3= Ae 00000900 
BUMP Bs 00001300 
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FUNCTIONS OF EACH COMPILER PASS 


The first compiler pass merges patches from the file labeled CARDS with the file labeled SOURCE, 
expands all definitions declared with the DEFINE statement, handles file declarations, and writes the 
results to an intermediate file labeled PFILE. 


The second pass uses the PFILE to parse data declarations, forward procedure declarations, switch- 
file declarations, and procedure declarations, including formal parameter declarations. The results are 
written to a second intermediate file labeled IFILE. 


The third pass uses the IFILE to parse statements and generate object code for all statements. If the 
CREATE__MASTER or RECOMPILE compiler control options are not specified, this object code is 
bound into a final code file. 


The fourth (bind) pass is invoked only if the CREATE_MASTER or RECOMPILE is specified. In 
this case, the SDL compiler binds intermediate code file information into the final code file. 


The organization of an SDL/UPL program is reflected in the structure of each of the three main passes 
of the SDL/UPL compiler. Each pass consists of: 1) a procedure that handles declarations, 2) a proce- 
dure which handles procedure declarations (this procedure handles declarations, procedures, and state- 
ments using recursion), and 3) a procedure which handles statements. At the beginning of each pass 
the initialization procedure is invoked and at the end of each pass the termination procedure is invoked. 
The last (bind) pass consists of four parts. These parts are the combine phase (if CREATE_MASTER 
is specified), the merge phase (if RECOMPILE is specified), the address-fixup phase, and the create- 
final-code-file phase. 
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SECTION 11 
HOW TO WRITE AN SDL/UPL PROGRAM 


GENERAL 


The writing of a computer program presupposes an understanding of the problem to be solved and 
a selection of the programming language most suitable to efficiently solving that problem. Assuming 
that these conditions are satisfied, the following considerations should be kept in mind as a guide in 
writing a SDL/UPL source language program. 


WRITING RULES 


The SDL/UPL compiler accepts a card-image input file of records where columns | through 72 can 
be used for statements, declarations, or comments and where columns 73-80 are the record sequence 
numbers and/or identification field. 


The coding can be specified in a completely free form, that is, any number of statements, declarations, 
or comments can appear on a single record or over as many records as desired. Column 72 is consid- 
ered adjacent to column 1 of the next record. Extra spaces can be used freely throughout the SDL/ 
UPL record line to improve the readability of the text. A percent sign (%) character denotes that the 
rest of the record is composed of comments. It can be used to delimit the scan procedure, thus increas- 
ing compile speed. The following shows an example of using the IF statement. 


If X Eel Y THEN 


X ach tine on the vonage represents 
FLSE X 


Or ZA E 
> k a Separate reccrde 


FORM OF AN SDL/UPL PROGRAM 


Programs are divided into logical units called procedures, each having a procedure head at its beginning 
and being terminated with and END statement. Procedures have an internal structure as described in 
Section 7. A procedure has a definite ordered relationship to all other procedures within a program 
from either a side-by-side (parallel procedure) or subordinate (nested procedure) position in that pro- 
griam. The ordering inherently defines the scope or range of an identifier and the procedures that can 
invoke from a given procedure. 


The main program (lexicographic level 0) is considered a procedure except that it has no procedure 
head or END statements and therefore cannot be recursively invoked. 


Identifiers and nested procedures that are used within a procedure must be declared and completed 
before any executable statements in that procedure. 


The outer-most procedure is considered to be the program. The procedures contained within the pro- 
gram are considered nested at least one level down, that is, they are on lexicographic level | or greater, 
with the maximum depth of 15 sublevels for UPL and 31 sublevels for SDL. Refer to Section 3 for 
a description on the structure of an SDL/UPL program. 


Execution of an object SDL/UPL program starts at the first executable statement in the outermost 
procedure and is the statement that immediately follows all nested procedures. The statements are per- 
formed successively from statement to statement within the outermost procedure or until a STOP state- 
ment is encountered. 
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Since the record line format in an SDL/UPL program is very flexible, it is suggested that statement 
levels be indented on new records to improved the documentation references and the general under- 
standing of a program. Thus, each new procedure can be indented to a new margin, and its corre- 
sponding END statement can be placed on that same margin. Also, since statements can contain other 
statements (such as DO, IF, and CASE), each lower level statement level can be indented. When a 
higher level is resumed, its statements should be placed at the proper level margin. This is only a sug- 
gestion. Indentation of statements does not affect the operation of the SDL/UPL program. 


Studying the examples and the detailecl descriptions of the SDL/UPL statements and declarations in 
this manual should aid in understanding SDL/UPL program structure. 


CODING EXAMPLES 


Two SDL/UPL programs that read a record, extract 11 fields of seven columns each, convert each 
field to a FIXED number are shown in Figures 11-1 and 11-2. Each shows one method that can be 
used to perform this task. Figure 11-1 shows a straight-forward approach and Figure 11-2 shows the 
recursive-procedure technique which is more typical of an SDL/UPL program. 


2COMPILE TEST WITH UPL> 
2DATA CARDS 
DECLARE BUFFER CHARACTER (€80)>» 
CHAR CHARACTER (€24)> 
CFe Me COL) FIXEDs 
FILE IN (CDEVICE = DISK» 
RECORDS = 80/1)> 
OUT (DEVICE = PRINTER» 
RECORDS = 132/1);3 
OPEN IN INPUTs 
OPEN OUT OUTPUT NEW? 
COL s= “73 
READ IN CBUFFERDs 
DO EXTRACT_FIELD FOREVER; 
IF CBUMP COL BY 7) STR 70 THEN UNDO EXTRACT_FIELDs 
z= CONV CSUBSTR CBUFFER» COL» 7)» FIXED); 
M 3= 0% 
DO CONVERT_BSITS FOREVERs 
SUBSTR CCHAR»> Me 1) 2= CONV CSUBBIT (Fs Me 1)» CHARACTERD?> 
IF CBUMP M) GTR 23 THEN UNDO CONVERT_BITS; 
END CONVERT_BITSs 
WRITE OUT CCHAR)? 
END EXTRACT_FIELDs 
CLOSE IN; 
CLOSE OUT> 
STOP» 
FINI> 
2END 


Figure 11-1. Straight Forward SDL/UPL Program 
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2COMPILE TEST WITH UPLs 
2DATA CARDS 
$ CSSIZE 40 
$ PPSSIZE 50 
FILE IN CDEVICE = DISK» 
RECORDS = 80/1)> 
QUT CDEVICE = PRINTER» 
RECORDS = 132/1);7 
DECLARE BUFFER CHARACTER C€80)- 
CHAR CHARACTER (24)> 
PROCEDURE PROCESS_FIELD CWe Y)> 
FORMAL CWe» YD FIXEDs 


SUBSTR CCHAR» C¥"1)5 1) 2= CONVERT CSUBBITCW> CY~1)5 1)» CHARACTERDs 
IF CDECREMENT Y) GTR O THEN PROCESS_FIELD €(W» Ys ZX Recursive Catt 


ELSE WRITE OUT CCHARD»s 
RE TURN» 
END PROCESS_FIELD> 
PROCEDURE PROCESS_ BUFFER CX)> 
FORMAL (X) FIXED? 
DECLARE COL FIXED> 
F FIXED? 
COL $= Te CX - 1195 
F 3= CONVERT CSUBSTR CBUFFER» COL» 7)» FIXED)s 
PROCESS_FIELD CFs» 24)3 


IF CDECREMENT X) GTR O THEN PROCESS_BUFFER C(X)s % Recursive 


ELSE RETURNS 
END PROCESS_ BUFFERS 
OPEN IN INPUTS 
OPEN OUT OUTPUT; 
READ IN CBUFFER)> 
PROCESS_BLFFER C1193 
STOP> 
FINIs 
2END 


Figure 11-2. SDL/UPL Program Using Recursive-Procedure Technique 
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RESERVED AND SPECIAL WORDS 


The reserved words used by the SDL/UPL compiler are listed below. 


ACCEPT FILE 
AND FILLER 

AS FINI 

BASE FIXED 

BIT FORMAL 
BUMP FORMAL__VALUE 
BY FORWARD 
CASE FROM 

CAT GEQ 
CHANGE GTR 
CHARACTER IF 

CLEAR INTRINSIC 
CLOSE LEQ 
DECLARE LOCK 
DECREMENT LSS 

DEFINE MOD 
DISPLAY NEQ 

DO NOT 
DUMMY OF 
DYNAMIC ON 

ELSE OPEN 

END PAGED 

EQL PROCEDURE 


ENTER._COROUTINE READ 


EXIT__COROUTINE 


EXOR 


RECORD 


READ__FILE_.HEADER 


REDUCE 
REFER 
REFERENCE 
REMAPS 
RETURN 
RETURN_AND__ENABLE__INTERRUPTS 
SEARCH__DIRECTORY 

SEEK 
SEGMENT 
SEGMENT__PAGE 


SUBSTR 


VARYING 
WRITE 

WRITE__FILE__ HEADER 
ZIP 


The special words used by the SDL/UPL compiler are listed below. 
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ACCESS__FILE_INFORMATION 
BASE__REGISTER 

BINARY 

BINARY__SEARCH 
CHANGE_STACK__SIZES 
CHARACTER_ FILL 
CHAR__TABLE 

COMMUNICATE 
COMPILE__CARD__INFO 
COMMUNICATE__WITH__GISMO 
CONTROL_STACK__BITS 
CONTROL_STACK__TOP 
CONSOLE__SWITCHES 

CONV 

CONVERT 

DATA__ADDRESS 
DATA__LENGTH 


M__MEM__SIZE 
MONITOR__CHANGE 
MONITOR__RESET 
MONITOR_SET 
NAME__OF__DAY 
NAME_STACK__TOP 


NDL__OP 
NEXT__ITEM 


NEXT__TOKEN 


NOTRACE 
NULL 
OVERLAY 


PARITY__ADDRESS 
PREVIOUS__ITEM 
PROGRAM__SWITCHES 
READ__CASSETTE 


READ__FPB 
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DATA__TYPE 

DATE 

DC__INITIATE__IO 

DEBLANK 

DECIMAL 
DELIMITED__TOKEN 
DESCRIPTOR 
DISABLE__INTERRUPTS 
DISPATCH 

DISPLAY__BASE 

DMS__CALL 

DUMP 
DUMP__FOR__ANALYSIS 
DYNAMIC_.MEMORY__BASE 
ENABLE__INTERRUPTS 
ERROR__COMMUNICATE 
EVALUATION__STACK__TOP 
EXECUTE 

FETCH 
FETCH_COMMUNICATE__MSG__PTR 
FETCH__AND__SAVE 
FIND__DUPLICATE__CHARACTERS 
FREEZE__PROGRAM 

GROW 

HALT 

HARDWARE__ MONITOR 
HASH__CODE 
HASH__UNPACK 
INITIALIZE__VECTOR 
INTERROGATE__INTERRUPT__STATUS 
LENGTH 

LIMIT__REGISTER 
LOCATION 
MAKE__DESCRIPTOR 
MAKE__READ__ONLY 
MAKE__READ__ WRITE 
MESSAGE__COUNT 


READ__OVERLAY 
REFER__ADDRESS 
REFER LENGTH 
REFER__TYPE 
REINSTATE 

RESTORE 
REVERSE__STORE 

SAVE 

SAVE_ STATE 
SEARCH__LINKED__LIST 
SEARCH__SERIAL__LIST 
S_MEM_ SIZE 
SEARCH__SDL__STACKS 
SORT 

SORT_.DELETE 
SORT__FILE__FIXUP 
SORT_.MERGE 
SORT_.RETURN 
SORT_SEARCH 
SORT__STEP__DOWN 
SORT_SWAP 
SORT__UNBLOCK 

SWAP 
SPO__INPUT__PRESENT 
THAW__PROGRAM 
THREAD__VECTOR 
TIME 

TRACE 

TRANSLATE 
VALUE__DESCRIPTOR 
WAIT 

WRITE__FPB 
WRITE.__OVERLAY 
X_ADD 

X__DIV 

X_MOD 

xX _MUL 

X__SUB 
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APPENDIX B 
THE SDL S-MACHINE 


The SDL S-machine is described in this appendix. 
COMPONENTS OF THE SDL S-MACHINE 


The five basic components of the SDL S-Machine are described as follows. 


Base-Limit Area 

Run Structure Nucleus 

Code segments and segment dictionaries 

File Information Blocks (FIB) and FIB dictionary 
Registers 


Base-Limit Area 


The base-limit area is the memory area for program data. The contents of this area are directly address- 
able and modifiable by SDL S-operators. This area is bound by the base and limit registers. All data 
addresses in the S-machine are expressed as a bit offset from the base register. Addresses are made 
machine absolute by adding the contents of the base register to the address. The area is broken into 
two divisions: 1) static memory (from base register to dynamic memory base) which is occupied by 
the SDL stacks, and 2) dynamic memory (from dynamic memory base to the limit register) which is 
used for virtual data memory. SDL paged-array page tables and resident pages can occupy the dynamic 
memory area. 


Run Structure Nucleus 


The Run Structure Nucleus of a program contains information used by the MCP and the SDL interpre- 
ter to run an SDL/UPL program. 


Code Segment and Segment Dictionaries 


Code segments are virtual as in the other S-machines, but the Code Segment Dictionary is segmented, 
corresponding to the page-segment concept in the SDL/UPL language. Each entry in a Master Segment 
Dictionary represents a page of segments in the source. program and points to a subdictionary with 
the entries for those segments. The Master Segment Dictionary cannot be overlayed; the subdictionaries 
can be overlaid. 


File Information Block and FIB Dictionary 


The File Information Block (FIB) and the FIB Dictionary appear in memory, one FIB for each open 
file in use by the running program. The FIB and FIB Dictionary are used by the B 1000 operating 
system for input/output operations. 


Registers 


Registers can be hardware registers or they can be stored in the Run Structure Nucleus, depending on 
the state of the S-machine. The exact format and number of registers is important only to the SDL 
Interpreter. Logically, the registers consist of the next instruction pointer (page, segment and displace- 
ment), the current lexic level, and the stack top pointers for all stacks. The current lexic level and Dis- 
play stack pointer are contained in the same register. The registers contain enough information about 
the stacks to check for stack overflows. Underflows are not detected. Registers are initialized from the 
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scratchpad area of the Program Parameter Block in the code file. The format of an SDL/UPL scratch 
pad in the code file follows. 


O1 SCFATCHPAD> 


02 
0¢ 


FILLER 
PPS_GASE 


ES_GASE 
£S_PPS_E&ITS 
VS_BASE 
FILLER 

CS_ BASE 
CS_HITS 
NS_BASE 
FILLES 
CISPLAY_BASE 
FILLER 
PROFILE_FLAG 
FILLER 
VS_BITS 
NS_BITS 
ES_BITS 
PPS_GITS 


EIT¢48), 
PIiT(24)> 


BITC24)» 
EIT(24)> 
BITC24)>» 
ELTC24)» 
EIT(24)> 
EITC24)>» 
BITC24)» 
EITC2L4)> 
81TC?4)> 
PITC4)> 

BITCL )» 

BITCLG)>» 
EITC 24)» 
BITK24)> 
PYTC24)>» 
EIT( 24); 


The concepts just presented are common to all the B 1000 S-machines. The SDL/UPL language does 
not use data segments and data segment dictionaries. These are handled by way of an SDL intrinsic. 


THE BASE-LIMIT AREA 


The base-limit area of main memory is divided as shown in Figure B-1. The arrows indicate the direc- 
tions of growth. 


DYNAMIC 
MEMORY 


PROGRAM 
POINTER 
STACK 


EVALUATION 
STACK 


CONTROL 
STACK 


DISPLAY 
STACK 


NAME 
STACK 


VALUE 
STACK 


LIMIT REGISTER 


_ 


}#— BASE REGISTER 


G18311 


Figure B-1. Base-Limit Area of an SDL/UPL Program 
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Value Stack 


The Value stack contains the value of a data item. The length and data type are kept in the Name 
and Evaluation stack. 


Name Stack 


The Name stack contains the data descriptors, each 48 bits long with one descriptor for every data 
identifier which is currently active (not necessarily addressable) in the program. The data descriptor 
for an array is 96 bits long and occupies two Name stack entries. The Name stack is divided into stack 
frames, each frame containing the descriptors for the names declared in one invocation of a procedure. 
Not all of these stack frames contain currently accessible descriptors. 


Display Stack 


The Display stack contains pointers into the Name stack, one pointer for each lexic level less than or 
equal to the current lexic level. Each pointer locates the base of the frame for currently addressable 
names at that lexic level. Each pointer entry is 32 bits long. 


Control Stack 


The Control stack contains the Name stack pointers which locate the stack frames for every active pro- 
cedure. Each time a procedure which requires local data or parameter allocations, that is, requires 
space on the Name stack, is entered, a new entry is pushed onto the Control stack to point to its Name 
stack frame. 


Because the data associated with Name stack descriptors is contained in the Value stack, this stack 
is also divided into frames and the base of each frame is recorded in the Control stack as it is allocated. 
In addition to these two pointers, each entry contains the lexic level of the calling procedure and the 
lexic level of the current entry. These are used by the S-machine to maintain the Display stack. Figure 
B-2 shows the format of a Control stack entry. 


NAME STACK POINTER EXITED 
LEXIC 


LEVEL 


ENTERED VALUE STACK POINTER 
LEXIC 


LEVEL 


20 BITS 4 BITS 4 BITS 20 BITS 


G18312 


Figure B-2. Format of Control Stack Entry 


Evaluation Stack 


The Evaluation stack is used to hold data descriptors for the evaluation of expressions, which are com- 
piled into reverse polish strings. The Evaluation stack is also used to build actual parameter descriptors 
before they are transferred to the Name stack for a procedure call. Space for data during expression 
evaluation is allocated on top of the Value stack, which is kept up to date as descriptors are pushed 
onto or removed from the Evaluation stack. 
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Program Pointer Stack 


The Program Pointer stack contains the next instruction pointer of a program. With the exception of 
the cycle operator used for looping, all transfers of control in the SDL S-machine are done by means 
of call-type operators. The next instruction pointer is saved for subsequent return by pushing it onto 
the Program Pointer stack. Figure B-3 shows the format of an entry in the Program Pointer stack. 


SEGMENT DISPLACEMENT 
6 BITS 6 BITS 20 BITS 
G18313 


Figure B-3. Format of the Program Pointer Stack 


DATA DESCRIPTOR 


The data descriptor is the descriptor in the Name and Evaluation stack. 


Figure B-4 shows the format for a 48-bit long simple, scalar descriptor. 


TYPE LENGTH ADDRESS 


8 BITS 16 BITS 24 BITS 


G18314 


Figure B-4. Format for a 48-bit Long Simple Descriptor 


The address, expressed in bits, is specified as a bit offset from the base register regardless of the data 
type. 


One of the bits in the type field indicates whether a descriptor is an array descriptor. When this bit 
is on, an additional 48 bits of information is appended. Figure B-5 shows the format for an array 
descriptor. 


LENGTH OF ADDRESS OF 
Tne ENTRY ARRAY 


PAGE 


LENGTH BETWEEN NUMBER OF 
SUBSCRIPT ENTRIES ENTRIES 
SIZE 
8 BITS 16 BITS 24 BITS 
G18315 


Figure B-5. Format of an Array Descriptor 
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The page subscript size is used only when the paged array bit is ON in the type field. The page sub- 
script size specifies the number of bits to shift an array subscript to obtain the corresponding page 
subscript. Page subscript sizes are always a power of two. 


The length between entries is the difference between the address of one element and the address of 
the previous element. This length must be greater than or equal to the length of one entry. 


The type field of a descriptor has a single format, even though some bits are not meaningful in all 
contexts. Figure B-6 shows the bit format of the type field. 


Bit 
Number 
0 


4-5 
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Binary 
Value 


0 
1 


BIT 
0 


BIT 
7 


n = binary Oor 1 
G18316 


Description 


Indicates a Name stack entry. 
Indicates a Value stack entry. 


This bit is only used when 
the descriptor is on the 
Evaluation stack. 


Indicates a self-relative 
descriptor. 

Indicates a non-self-relative 
descriptor. This bit must be 
ON if bit 2 equals 1. 


Descriptor is not an array 
descriptor. 

Descriptor is an array 
descriptor. 


Not contiguous array. 
Contiguous array. The length 
between elements equals the 
length of one element (bit 2 
must be equal to 1). 


Indicates a BIT data type. 


Indicates a FIXED data type. 


Indicates a CHARACTER 
data type. 

Indicates a VARYING data 
type. Used only in the type 
field of inline descriptors 
which are arguments of a 
construct descriptor formal 
check (CDFC) operator and 
in the argument to a return 


Figure B-6. Format of the Type Field 


Bit 
Number 


Binary 
Value 


Description 


formal check (RTNC) 
operator. The CDFC operator 
also uses bit 6 in a different 
way: it indicates a varying 
array bound. Inline 
descriptors for other 
operators use bit 0 to 
indicate the presence of a 
filler field. Refer to INLINE 
DESCRIPTOR FORMATS in 
this appendix. 


Not a paged array. 
Indicates a paged array (bit 2 
must also equal 1). 


Not a VARYING length. 
Indicates a VARYING length. 
Used only in the type field 
of inline descriptors which 
are arguments of a construct 
descriptor formal check 
(CDFC) operator and in the 
argument to a return formal 
check (RTNC) operator. The 
CDFC operator also uses bit 
6 in a different way: it 
indicates a varying array 
bound. Inline descriptors for 
other operators use bit 0 to 
indicate the presence of a 
filler field. Refer to INLINE 
DESCRIPTOR FORMATS in 
this appendix. 
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When the data item is 24 bits or less in length, it can be contained directly in the address portion 
of the descriptor, thus requiring less storage space. In this case, the descriptor is said to be self-relative 
and the non-self-relative bit is off. 


The use of the name-value bit, in the Evaluation stack, is to distinguish between descriptors that had 
an associated value loaded on the Value stack when they were pushed on the Evaluation stack, and 
those that did not. The purpose is to signal that a data item must be removed from the Value stack 
whenever this descriptor is removed from the Evaluation stack. The bit can be set only in non-self- 
relative descriptors. 


PAGED ARRAY DESCRIPTORS 


When the paged array bit is ON in an array descriptor, the address field of the descriptor does not 
point directly to the array, but is initialized to 0 (zero). An array load operator (ALA, AL) detects 
the first access to the array and invokes the SDL virtual memory manager to build a page table in 
dynamic memory. This table is non-overlayable and the descriptor address field is set to the page table 
address. Figure B-7 shows the format of a paged array descriptor. 


| STATUS | ADDRESS | 


4 BITS 24 BITS 

G18317 

Bit Bit 

Number Value Description 
0 0 Address is present and is a disk address. 
1 Address is present and is a base relative memory 
address. 
1 0 Not to be read. 


1 To be read. The next time this page is rolled out, this 
bit is set to 0 and bit 2 is set to 1. 


2 0 This paged array cannot be overlaid without rolling it 
out to disk. 
1 This page array can be overlaid without rolling it out 
to disk. 
3 This bit is not used. 


Figure B-7. Format of a Paged Array Descriptor 


An address field of 0 (zero) indicates that this is a previously unaccessed paged array and can be cre- 
ated without rolling it in. 


B-6 
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ACCESS OF DATA ADDRESSES 


Data addresses are accessed with the SDL S-machine language by means of descriptors on the Name 
stack. At any point in an SDL/UPL program, every accessible data item can be described by the lexic 
level at which it was declared by its ordinal location (occurrence number) within the declaration section 
at that level. A data address consists of these two numbers which uniquely locate a descriptor in the 
Name stack. Addressing is done by using the Display stack to locate the Name stack frame correspond- 
ing to the required lexic level, and by using the occurrence number to locate the descriptor within that 
frame. To make data addresses more compact, they have a type field which indicates the sizes of the 
other fields. Figure B-8 shows the format of a data address. 
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‘PEPE LEXIC LEVEL OCCURRENCE NUMBER 


2 BITS 1OR4 BITS 5 OR 10 BITS 
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Lexic Level Occurrence Total 


Type Bits Number Bits Bits 
00 4 10 16 
01 4 5 11 
10 1 10 13 
1] 1 5 8 


When only one bit is used for lexic level, 0 indicates lexicographic level 0 and 
1 indicates the current lexic level. 


Figure B-8. Format of a Data Address 
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CODE ADDRESSES 


Code addresses appear as arguments of operators which affect transfers of control. They are divided 
into three parts: the page number which selects the segment dictionary page, the segment which selects 
the segment dictionary entry within that page, and the displacement which specifies a bit offset within 
the segment. To make data code addresses more compact, these numbers are encoded in different field 
sizes which are determined by a type field. Figure B-9 shows the format of code addresses. 


TYPE SEGMENT | PAGE | DISPLACEMENT | 


3 BITS Oor6 BITS 0,4,or6 BITS 12, 16, or 20 BITS 
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Displacement Total 


Type Segment Bits Page Bits Bits Bits 
000 Current Current 12 15 
001 Current Current 16 19 
010 6 Current 12 21 
011 6 Current 16 25 
100 6 4 12 25 
101 6 4 16 29 
110 6 4 20 33 
111(0) Null Address 

(1) 6 6 20 36 


Type 111 with the following bit OFF and with a Null Address, is used only 
to mark null entries in a CASE operator. The length of this code type is the 
same as the code address type specified by the CASE operator. 


Figure B-9. Format of Code Addresses 
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FORMAT OF THE CONTROL STACK AND SCRATCH PAD 
Figure B-10 shows the format of the CONTROL stack. 


CONTROL 
STACK 


20 bits 20 bits 


Re ed et SS 


EXITED LEXIC LEVEL ENTERED LEXIC LEVEL 


CONTROL 
STACK 
POINTER 
G18320 


Figure B-10. Format of the Control Stack 


Figure B-11 shows the current Control stack information contained in the scratch pad. 


CURRENT CONTROL REGISTER 


20 BITS 4 BITS 4 BITS 20 BITS 


CURRENT NAME ! CURRENT VALUE 
STACK POINTER STACK POINTER 


CURRENT LEXIC LEVEL FILLER 
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Figure B-11. Format of Control Stack Information in Scratch Pad 
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The following SDL declaration shows the format of the Control stack and Current Control register. 


CECLARE 
Q1 CONTROL_STACK (CS_SI7E) BIT(43)> 
92 CS_NSF BITC2C)» 
O02 CS_EXITEC_LL 6ITC4)» 
92 CS_ENTERFC_ LLL GITC4&), 
02 CS_VWSPF BITC20)>- 
Q1 CURFRENT_CCNTFCL EITC 43 )e 
92 CUPRENT_NSP BITC2C)» 
O2 CUFRENT_LL BITC 4)» 
02 FILLER BITC 4)» 
QO2 CURRENT_VSP BITC2O0)> 
CCSPeTCSP) FIXEC, 
C5P2=0;7 


The following SDL operators are used in the Control stack mechanism. 


SDL 
Operator Descriptor 


MKS MARK STACK 

CDFM CONSTRUCT DESCRIPTOR, FORMAL 

CDFC CONSTRUCT DESCRIPTOR, FORMAL CHECK 
MKU MARK STACK AND UPDATE 

EXIT EXIT 

RTRN RETURN 

RTNC RETURN FORMAL CHECK 

XTEI EXIT, ENABLE INTERRUPTS 


INLINE DESCRIPTOR FORMATS 


Inline descriptors, which are used by the construct descriptor operators, have the following format. 
The type field has the same format as that in the data descriptors. 


Simple Data Descriptor Format 


Figure B-12 shows the format of a simple data descriptor. 


8 BITS 6 or 17 BITS 6 or 17 BITS 
TYPE LENGTH | FILLER 


OPTIONAL 
G18322 


NOTES 
The filler option is present only when bit 0 of the type field is ON. 


Bit 2 of the type field is always 0 (zero). 


Figure B-12. Format of a Simple Data Descriptor 
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Array Descriptor Format 


Figure B-13 shows the format of an array descriptor. 


8 BITS 6 or 17 BITS 6 or 17 BITS 

TYPE LENGTH OF ENTRY FILLER 
OPTIONAL 

6 or 17 BITS 8 BITS 6 or 17 BITS 


Ll NUMBER OF ENTRIES 


For paged arrays, this is the number 
of bits of the subscript need to 
obtain the page subscript 


LENGTH BETWEEN 
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NOTES 
The filler option is present only when bit 0 of the type field is equal to 1. 


The length between option is present only when bit 3 of the type field is equal 
to O (zero). 


Bit 2 of the type field is always equal to 1. 


The page subscript size field is present only when bit 6 of the type field is 
equal to 1. 


If bit 6 of the type field is on, then bits 0 (zero) and 3 are equal to O (zero). 


The field that contains six bits always has a 0 (zero) in the leftmost bit posi- 
tion. The field that contains 17 bits always has a 1 in the leftmost bit posi- 
tion. 


First Bit Meaning 


0 5 bits follow 
1 16 bits follow 


Figure B-13. Format of an Array Descriptor 
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USE OF THE EVALUATION STACK 


Many of the SDL/UPL S-machine operators (S-ops) take operands from or leave results on the 
Evaluation stack. Only the descriptor of the operand is on the Evaluation stack while the data (the 
value of the operand) can be in the descriptor or elsewhere in the base-limit area. Conceptually, the 
S-operator is working with an operand. There are two classes of operands or results on the Evaluation 
stack: address operands and value operands. 


Address Operand 


The address operand is a pointer to the value of a declared data item. The descriptor on the Evaluation 
stack is non-self-relative and its name-value bit is off. This type of operand is appropriate for use as 
the destination of an S-operator that moves data. 


A particular S-operator often requires that its operands be of a particular class. It does not make sense, 
for example, for the destination operand of a STOD (store destructive) to be a value operand. Some 
S-operators put other restrictions on their operands, usually concerning type or length. Unless 
specifically indicated, these restrictions are not checked by the interpreter and, if not met, the results 
of the operations are undefined. 


Value Operands 
There are two classes of value operands. These are self-relative operands and non-self-relative operands. 
Self-Relative 


The descriptor on the Evaluation stack is marked self-relative and its name-value bit is equal to 0. In- 
stead of the address field of the descriptor being a pointer to the data, the data itself is contained 
in the address field of the descriptor. 


Non-Self-Relative 


The descriptor on the Evaluation stack is marked non-self-relative and its name-value bit is equal to 
1. The data is on top of the Value stack, located by the address field in the descriptor. When this 
type of operand is removed from the Evaluation stack, its value also is removed from the Value stack. 


Value operands are temporary values as opposed to actual variables of the program. 


INSTRUCTION SET 


The instruction set in the SDL S-machine language contains operation codes that are four, six, ten, 
or thirteen bits in length. The lengths have been assigned according to static frequency of the S- 
operator, thus compacting code space as much as possible. 

Relational Operators 


The following are the relational operators. 


Name Mnemonic Operation Code 
EQUAL TO EQL 1010 O01 
LESS THAN LSS 1111 01 1010 
LESS THAN OR EQUAL TO LEQ 1111 00 1110 
GREATER THAN GTR 1111 00 1001 
GREATER THAN OR EQUAL TO GEQ 1111 00 1101 
NOT EQUAL TO NEQ 1010 10 
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Arithmetic Operators 


The following are the arithmetic operators. 


Name Mnemonic Operation Code 
ADD ADD 1011 01 
SUBTRACT SUB 1011 10 
MULTIPLY MUL 1111 00 0101 
DIVIDE DIV 1111 00 0110 
MODULO MOD 1111 00 O111 . 
REVERSE SUBTRACT RSUB 1111 10 1100 
REVERSE DIVIDE RDIV 1111 10 1101 
REVERSE MODULO RMCD 1111 10 1110 
NEGATE NEG 1111 01 0111 
CONVERT TO DECIMAL DEC 1111 10 1000 
CONVERT TO BINARY BIN 1111 10 1001 


Extended Arithmetic Operators 


The following are the extended arithmetic operators. 


Name Mnemonic Operation Code 
EXTENDED ADD XADD 1111 11 1100 01 
EXTENDED SUBTRACT XSUB 1111 11 1100 100 
EXTENDED MULTIPLY XMUL 1111 11 1100 101 
EXTENDED DIVIDE XDIV 1111 11 1100 110 


EXTENDED MODULO XMOD 1111 11 1100 111 


Logical Operators 


The following are the logical operators. 


Name Mnemonic Operation Code 
AND AND 1111 00 0001 
OR OR 1111 00 0000 
EXCLUSIVE-OR EXOR 1111 00 0010 
NOT _ NOT 1111 00 1011 


String Operators 


The following are the string operators. 


Name Mnemonic Operation Code Arguments 
CONCATENATE CAT 1100 11 
SUBSTRING ONE SS1 1111 11 0100 T,V,Q,L 
SUBSTRING TWO SS2 1111 00 1000 T,V 
SUBSTRING THREE  SS3 1010 00 T,V 
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Store Operators 


The following are the store operators. 


’ Name Mnemonic Operation Code 

STORE DESTRUCTIVE STOD 0010 

STORE NON-DESTRUCTIVE LEFT SNDL 1010 11 

STORE NON-DESTRUCTIVE RIGHT SNDR 1111 00 0100 

Construct Descriptor Operators 
The following are the construct descriptor operators. 
Name Mnemonic Operation Code Arguments 
CONSTRUCT DESCRIPTOR CDBZ 1111 10 0100 DESCRIPTOR 
BASE ZERO 
CONSTRUCT DESCRIPTOR CDLD 1110 00 N,DES#1,..., 
LOCAL DATA DES#n 
CONSTRUCT DESCRIPTOR FORMAL CDFM 1111 01 0001 LL,E 
CONSTRUCT DESCRIPTOR FORMAL = CDFC 1111 11 1101 000 LL,E,DES#1,... 
CHECK DES#n 
CONSTRUCT DESCRIPTOR FROM CDPR 1110 10 N,DES#1,..., 
PREVIOUS DES#n 
CONSTRUCT DESCRIPTOR FROM CDAD 1110 01 N,DES1,..., 
PREVIOUS AND ADD DES#n 
DES#n 

CONSTRUCT DESCRIPTOR FROM CDMP 1111 10 0101 N,DES1,..., 
PREVIOUS AND MULTIPLY DES#n 
CONSTRUCT DESCRIPTOR LEXIC CDLL 1111 10 0011 TYPE-LL-OC, 
LEVEL DESCRIPTOR 
CONSTRUCT DESCRIPTOR REMAPS CDRM 1111 00 1111 DESCRIPTOR 


CONSTRUCT DESCRIPTOR DYNAMIC CDDY 


B-14 


1111 11 1110 000 TYPE 


B 1000 Systems SDL/UPL Reference Manual 
The SDL S-Machine 


Load Operators 


The following are the load operators. 


Name Mnemonic 
MAKE DESCRIPTOR MDSC 
VALUE DESCRIPTOR VDSC 
DESCRIPTOR DESC 
NEXT OR PREVIOUS ITEM NPIT 
LOAD L 
LOAD ADDRESS LA 


LOAD ARRAY FIELD ADDR. LAFA 
LOAD FIELD ADDRESS LFA 


LOAD FIELD ADDRESS 


FROM PREVIOUS LFAP 
ARRAY LOAD VALUE AL 
ARRAY LOAD ADDRESS ALA 
INDEXED LOAD VALUE IL 
INDEXED LOAD ADDRESS ILA 
INDEXED LOAD FIELD ILFA 
ADDRESS 

LOAD LITERAL LIT 


LOAD NUMERIC LITERAL LITN 


LOAD NUMERIC ZERO ZOT 
LOAD NUMERIC ONE ONE 
REFER REDR 


Stack Operators 
The following are the stack operators. 


Name 


BUMP VALUE STACK POINTER 
DUPLICATE 

DELETE 

EXCHANGE 


FORCE VALUE STACK 
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Operation Code Arguments 
1111 10 1010 
1111 01 1000 


1100 10 TYPE-LL-OC 
1111 01 1101 V,TYPE-LL 

1101 00 TYPE-LL-OC 
0000 TYPE-LL-OC 


1111 11 1111 011 TYPE,LENGTH 
1111 11 1111 001 TYPE,OFFSET 


LENGTH, 
TYPE-LL-OC 


1111 11 1111 010 TYPE,OFFSET 


LENGTH 

1111 01 1100 TYPE-LL-OC 

1101 01 TYPE-LL-OC 

1111 01 0000 TYPE-LL-OC 

0001 TYPE-LL-OC 

1111 11 1111 000 TYPE,OFFSET, 
LENGTH 

0100 TYPE,LENGTH, 
LITERAL 

0011 LITERAL 

0101 

0110 

1111 11 1111 100 

Mnemonic Operation Code 

BVSP 1111 10 1011 

DUP 1100 00 

DEL 1111 00 0011 

XCH 1011 00 

FVS 1100 01 
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Procedure Operators 


The following are the procedure operators. 


Name Mnemonic Operation Code Arguments 

CALL CALL 0111 TY PE-SEG- 
PAGE-DISP 

IF THEN IFTH 1001 TYPE-SEG- 
PAGE-DISP 

IF THEN ELSE IFEL 1101 10 ADDR TYPE,TYPE- 
SEG-PAGE-DISP 

CASE CASE 1111 01 0100 # OF ADDR, ADD 
TYPE,TYPE-SEG- 
PAGE-DISP.,..., 
TYPE-SEG-PAGE- 
DISP 

UNDO UNDO 1000 # OF LEVELS 

UNDO CONDITIONALLY UNDO 1111 01 0011 # OF LEVELS 

RETURN RTRN 1111 01 0101 # OF LEVELS 

RETURN FORMAL CHECK RTNC 1111 11 1101 001 # OF LEVELS, 
TYPE,LENGTH 

EXIT EXIT 1101 11 # OF LEVELS 

CYCLE CYCL 1110 11 DISPLACEMENT 

MARK STACK MKS 1011 11 

MARK STACK AND UPDATE MKU 1111 O1 1111 LL 

ENABLE-DISABLE INTERRUPTS EDI 1111 11 0101 V 

EXIT-ENABLE INTERRUPTS XTEI 1111 11 0110 V,# OF LEVELS 

CO-ROUTINE ENTRY CNTR 1111 11 1010 000 

CO-ROUTINE EXIT CXIT 1111 11 1010 001 # OF LEVELS 

DMS-CALL DMCL 1111 11 1110 O11 
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Search and Scan Operators 


The following are the search and scan operators. 


Name Mnemonic Operation Code Arguments 

REDUCE RDUC 1111 11 1001 101 VARIANTS, 
TYPE-LL-OC 

SEARCH SDL STACKS SSS 1111 11 1110 001 

SEARCH LINKED LIST SLL 1111 01 1010 COMPARE TYPE 

SEARCH SERIAL LIST SSL 1111 11 1000 000 COMPARE TYPE 

SORT SEARCH SSCH 1111 11 1011 100 

THREAD VECTOR TVEC 1111 11 1011 O11 

INITIALIZE VECTOR IVEC 1111 11 1011 000 

START STEP DOWN SSD 1111 11 1011 010 

START SWAP SSWP 1111 11 1011 101 

START UNBLOCK UBLK 1111 11 1011 011 

DELIMITED TOKEN DTKN 1111 11 1001 001 TYPE-LL-OC, 
DEL1,DEL2 

NEXT-TOKEN NTKN 1111 11 1001 000 TYPE-LL-OC 
SEPARATOR,V 

DEBLANK DBLK 1111 11 1001 010 TYPE-LL-OC 

CHARACTER FILL CHFL 1111 11 1001 100 

TRANSLATE XLAT 1111 11 1110 101 

FIND DUPLICATE CHARACTERS FDUP 1111 11 1001 011 


Miscellaneous Operators 


The following are the other operators. 


Name Mnemonic Operation Code Arguments 

TRANSFER MESSAGE XFRM 1111 11 1010 010 DEST,VARIABLES 
SOURCE 
VARIABLES 

HASH CODE HASH 1111 11 1000 001 

HASP UNPACK HASP 1111 11 1111 101 LL,ON 

SWAP SWAP 111 01 0110 

FETCH FECH 111 00 1100 

DISPATCH DISP 1111 01 1011 

HALT HALT 1111 11 0010 

READ CASSETTE RDCS 1111 01 0010 

LENGTH LENG 1111 10 0000 
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Name 


LOAD SPECIAL 
NDL SOPS 

CLEAR ARRAY 
COMMUNICATE 
REINSTATE 
FETCH CMP 
DATA ADDRESS 
SAVE STATE 
OVERLAY 
PROFILE 

PARITY ADDRESS 
EXECUTE 
COMMUNICATE WITH GISMO 
ADD TIMER 
SUBTRACT TIMER 
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Mnemonic 


LSP 
NDL 
CLR 
COMM 
REIN 
FCMP 
ADDR 
SVST 
OVLY 
PRFL 
PADR 
EXEC 
CWG 
ADDT 
SUBT 


Operation Code 


1111 
1111 
1111 
1111 
1111 
1111 
1111 
1111 
1111 
1111 
1111 
1111 
1111 
1111 
1111 


01 
1] 
10 
10 
10 
10 
01 
11 
11 
10 
11 
11 
11 
11 
11 


1110 


1111 110 


0111 
0110 
0001 
0010 
1001 
0001 
0000 
1111 
0111 
1110 010 
1110 110 
1100 000 
1100 001 


Arguments 


VARIANT 
TYPE,# DESC 


ENTRY NUMBER 
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| APPENDIX C 
SDL/UPL SYNTAX REFERENCE GUIDE 


All of the railroad syntax diagrams previously used in this manual are also listed in this appendix. The 
SDL compiler railroad syntax diagrams are presented first, followed by the UPL compiler railroad syn- 
tax diagrams. 


LISTING OF SDL RAILROAD SYNTAX DIAGRAMS 
The railroad syntax diagrams valid for the SDL compiler are as follows: 
Fundamental Items 

The following are the syntax diagrams for the fundamental items. 


Identifiers 


— <letter> 


Numeric Literal 


Bit-String Literal 


—e- (4) <hex-digits> @ —_—————_ 


(3) <octal-digits> 
=(2) = <quartal-digits> 
(1) <binary-digits> 
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Character-String Literal 


ene 
—— <EBCDIC-character> - = $$$$____—___-____ 


Enclosed Comment 


——— /* <comment-text> */ $$. $$$ —___ 


End-of-Record Comment 


-% <comment-text > ss ee 


Declarations 
The following are the syntax diagrams for the data, record, file, and switch-file declarations. 


Data Declarations 


~—- DECLARE 


<identifier-part> 


<structured-part> 


< paged-array-part> 


<dynamic-part> 


<reference-part> 


<remaps-part> 


<identifier-part > 


<identifier> — 
(<number-of-elements> ) ——— 


ri SET Serato eae 
(<number-of-elements> ) 


>_< type-part > ————_——_.------ _—__—_ —_—_——_ 
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<structured-part > 


a : 
<levelenumber> B 
A <— 

B <identifier-part> <type-part> 


——~ FILLER 
———- <semap-identifier-> REMAPS <identifier> 


DUMMY REMAPS <identifier> 


< paged-array-part > 


PAGED (<elements-per-page> ) <identifie=> ——————______—_—_____—_> 


>—— (<number-of-elements>) <type-part> ———_—_ —_§_—_ ——_ 


< dynamic-part > 


DYNAMIC <identifier-part> ee 
<remap-part> 


<reference-part > 


<identifier> 
ea ede ea lon 
>——-—- REFERENCE > 


<remaps-part > 


——— <remap-identifier> REMAPS < es < type-part> —— 
BASE 


<type-part > 


<record-identifier> 


- FIXED 
— BIT 
(<bit-size> ) 
- CHARACTER 
( <character-size> ) 


 < record-identifier> 
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Record Declarations 


——— RECORD | <structured-part> -- ; | 


<unstructured-part> 


<structured-part > 


——<level-number> <crecord-identifier> <<type-part> —-—_> 


ee ane il <identifier-part> —— <type-part> as 
-- <remaps-part> ——"—— 


<unstructured-part > 


—— <record-identifie > ——_—____- -—__ i 


<identifier-part> <type-part> 
[| ——————————-. <‘identifier-part> <type-part> 


<identifier-part > 


<identifier> Oe hein ee 
— (<number-of-elements> ) - 


ee Se 


a 


<remaps-part > 
———— _<remap-identifie-> REMAPS —--————-————————- <identifier> | 


<type-part > 


EEX ED me ———_—__—__—_——_| 


BIT (<bit-size> ) 
CHARACTER ( <character-size> ) 


<record-identifier=> —————_-- 


File Declarations 


—— FILE Mate —— ip aa ae qe ; — 
7 naar eien i 
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ALL_AREAS__AT__OPEN 


— ALL_AREAS_AT_OPEN TT ---—_ 


AREAS 

— AREAS : <number-of-areas> / < blocks-per-area> ——___----____________| 
BUFFERS 

—— BUFFERS = <number-of-buffees>-—-£—-@ $$ 
DEVICE 


OE CO ee eee 
CARD 


—— CARD_PUNCH 
FORMS BACKUP 
BACKUP DISK 
BACKUP TAPE 
NO BACKUP 
OR BACKUP 
OR BACKUP DISK 
OR BACKUP TAPE — 
— CARD_READER 


— CASSETTE 
— DATA_RECORDER_ 80 
DISK 
SERIAL 
— RANDOM 
— DISK_FILE 
SERIAL 
RANDOM 
— DISK_PACK 
SERIAL 
RANDOM 
PORT 
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PRINTER an een 
FORMS 


BACKUP -— 
BACKUP DISK 
BACKUP TAPE 

NO BACKUP 

OR BACKUP 

OR BACKUP DISK 
OR BACKUP TAPE 


PUNCH_PRINTER ae ae 
FORMS 


BACKUP 

BACKUP DISK 
BACKUP TAPE 
NO BACKUP 

OR BACKUP 

OR BACKUP DISK 
OR BACKUP TAPE 


QUEUE (<max-messages> ) ane ener IN 
FAMILY (<size >) 


READER_PUNCH_PRINTER aa ie 
FORMS BACKUP 


BACKUP DISK 
BACKUP TAPE 
NO BACKUP 
OR BACKUP 
OR BACKUP DISK 
OR BACKUP TAPE 
READER_SORTER ——————- 


REMOTE ( <max-messages> ) ae cana 
WITH HEADERS 


SORTER_READER ——————_--—__ 
TAPE 

TAPE_NRZ 

TAPE_PE 

TAPE_7 

TAPE_9 
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END__OF__PAGE__ACTION 


— END_OF_PAGE_ACTION $$$ _____ 


EU_INCREMENTED 


—— EU_INCREMENTED = <drive-number> $f 


EU__SPECIAL 


—— EU_SPECIAL = <drive-number> —— 


EXCEPTION__MASK 


—— EXCEPTION_MASK = <exception-bits> _ 


FILE__TYPE 

— FILE TYPE = DATA 
INTERPRETER 
CODE 
INTRINSIC 
PSR_DECK 

HOST__.NAME 


—— HOST_NAME = “ <host-name>” 


INVALID__CHARACTERS 


—— INVALID_CHARACTERS = 0 
1 
2 
3 
LABEL 


— LABEL = “ <multi-file-identifier> ” 


/" <file-identifier> ” 


LABEL._TYPE 
—— LABEL_TYPE = UNLABELED 
-— BURROUGHS 
ANSI 
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LOCK 
— LOCK SS 
MODE 
—— MODE = ASCII ~ -_—__ 
EBCDIC — EVEN = 
BCL — ODD 


BINARY 


MULTI__PACK 


——— MULTI_PACK ce os 


NUMBER__OF__STATIONS 


— NUMBER_OF_STATIONS = <number> i 


OPEN__OPTION 


— OPEN_OPTION = INPUT __§_§—_——_ 


DEFAULT 
OPTIONAL 
— OPTIONAL $$ 
PACK__ID 
—— PACK_ID = “<pack-identifier>” 2 ____ —_——_ 
PROTECTION 


—— PROTECTION = <number> Sa —_§_—___ 


PROTECTION__IO 


—— PROTECTION_1O = <number> 


RECORDS 
—— RECORDS = vee <physical-size> it a an 
<logical-size>/ < records-per-block> 
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REEL 

— REEL = <reel-number> AAA AA 
REMOTE_KEY 

—— REMOTE_KEY Ene 
SAVE 

—— SAVE = <number-of-days> S| 
SECURITY 


— SECURITYTYPE = <pumbe> —$ @$@A A 


SECURITYUSE 


— SECURITYUSE = <qumbe> ——£@£- AAA A 


SERIAL 

—— SERIAL = a a nn 
" <character-string> ” 

TRANSLATE 


— TRANSLATE = “ <file-identifier> “’ nn 


USE__INPUT__BLOCKING 


— USE_INPUT_BLOCKING a 


USER__.NAMED__BACKUP 


— USER _NAMED_BACKUP i 


VARIABLE 


— VARIABLE $i 


WORK__FILE 


— WORK_FILE SH 
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Switch File Declarations 


— SWITCH_FILE <switch-file-identifier>> Fn (sane ceareraas (T ); — 
Define Statement 
te ete fe 

— DEFINE <. define-identifier> Ree ee ae aT aS B 
ese ees 
ue. << parameter> oa ] 

se ee ele 

B>—AS # <text> # :; —. 


Procedure Statement 


The following are the syntax diagrams for the procedure declaration, procedure body, procedure end, 
and procedure invocation statements. 


Procedure Declaration 


PROCEDURE <procedure-identifier> 
- FORWARD _| 
INTRINSIC <intrinsic-identifies> ————————— 


a a oe an 
"<< type-part> 


FORMAL —— <formal-element-part> —— 
FORMAL_VALUE 
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<type-part > 


BIT an ae ( <bit-size> ) 
VARYING 


CHARACTER (<character-size> ) 
VARYING 

FIXED 

REFERENCE 

VARYING 


< formal-element-part > 


’ 


<identifier> 


(+) 
OE ees 1 
(+) 


Procedure Body 


<type-part> 


<declaration-statement> <procedure-statements 
RETURN 
<expression> 
RETURN_AND_ENABLE_INTERRUPTS 


Procedure End 


a (NOR (aa 
<procedure-identifier> 


Procedure Invocations 


—- ae ; — 


parameter> 
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Expressions 
The following are the syntax diagrams for the expressions. 


= —— <operand> ————— oor > 


fees <unary-operator> —— 
a ee ee: 
—— <unary-operator> 


Verbs 


The following are the syntax diagrams for the verbs. 


ACCEPT 


—— ACCEPT <destination> ; ———— A$ 


ACCESS__FILE_INFORMATION 


—— ACCESS_FILE_INFORMATION (<file-identifier>, ——— os 
CHARACTER — 


> | <destination> ) ; ———————- 


BASE__REGISTER 


—— BASE_REGISTER | 


BINARY 


—— BINARY. (<character-string> ) ———_- 


BINARY__SEARCH 


—— BINARY_SEARCH ( <start-record>, <compare-field>, <compare-value> , —————-_—_> 


>———— _ <number-of-records> ) cc 


BUMP 


—— BY <increment-amount> - 
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CASE (format-1) 


— CASE <index> ; —— > 
oo <statement-0>; 
> _<statement-1>; 


>——— <statement-n>; 


>——— END case; —-— A 


CASE (format-2 


ee ee ee TERMS ie eee nee 


CHANGE 


—— CHANGE <file-identifier> TO ( ee ee 3 — 


CHAR__TABLE 


CAT , 
—— CHAR_TABLE ( “<e8co¢ehrsws>” 1 ) —_——_ 
@< 2-hexadecimal-numbers> @ 


CHARACTER__FILL 


—— CHARACTER_FILL (<destination>, <source>) ; ——_---- ____ 


CLEAR 
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CLOSE 


eas tal < file-identifier> ee eee 
<switch-file-identifier> (<index>) ———-————— WITH 


CODE_FILE 
CRUNCH ————— / 
IF_NOT_CLOSED — 

LOCK 

NO_ REWIND ——- 

PURGE ——_———-- 

REEL 

RELEASE 

REMOVE 

ROLLOUT 


COMMUNICATE__WITH__GISMO 


—— COMMUNICATE_WITH_GISMO (<communicate> ) ; ——_  —__§_ 


COMMUNICATE 


— COMMUNICATE (<MCP-communicate>) ; ———— $$ 


COMPILE__CARD__INFO 


— COMPILE_CARD_INFO (<destination> ) ; ———-—_______________—_ 


CONSOLE__SWITCHES 


—- CONSOLE_SWITCHES ——————___$_$_$?$_?_ 


CONTROL__STACK__BITS 


—~ CONTROL_STACK_BITS ef 


CONTROL_STACK__TOP 


— CONTROL_STACK_TOP — 
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CONVERT 


—— CONVERT (<convert-value>, FIXED 
oe — BIT 
CHARACTER 


DATA__ADDRESS 


—— DATA_ADDRESS ( <identifier> ) 


DATA__LENGTH 


—— DATA_LENGTH ( <data-item> ) 
DATA__TYPE 


—— DATA_TYPE ( <data-item> ) 


DATE 


—DATE 


( DAY ' BIT ) 
— JULIAN — — CHARACTER = 
MONTH DIGIT 


YEAR 


DC__INITIATE_IO 


—— DC_INITIATE_IO (<port>, <channel>, <1/O-descriptor-address> ) ; a 


DEBLANK 


—— DEBLANK ( <first-character> ) ; 


DECIMAL | 


— DECIMAL (<string>, <string-size> ) 
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DECREMENT 


— DECREMENT < identifier> a er 
BY < decrement-amount> 


DELIMITED__TOKEN 


— DELIMITED_TOKEN ( <first-character-address> , <delimiters>, ————_—_——___—___—_——> 
>———_ < result-reference-identifier> ) $i 
DESCRIPTOR 


— DESCRIPTOR T <simple-identifier> - ) _______-—___—_ 


<array-identifier> 


DISABLE_INTERRUPTS 


—— DISABLE_INTERRUPTS ; —————__—--—__- —_—_-_——_¥_ 


DISPATCH 


—— DISPATCH ( <port-and-channel> , < 1/O-descriptor-address>> ) 7 —_ 


DISPLAY 


—— DISPLAY (<display-identifier> ) Ee eee ; -———__ 
—— , CRUNCHED 


DISPLAY__ BASE 


—— DISPLAY_BASE SS 


DO 


OO ee oe 
<group-name> — FOREVER <statement> ; 
ee 


<group-name> 


DUMP__FOR__ANALYSIS 


—— DUMP_FOR_ANALYSIS; >>> 
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DYNAMIC_.MEMORY__BASE 


—— DYNAMIC_MEMORY_BASE —_—_ 


ENABLE__INTERRUPTS 


——- ENABLE_ INTERRUPTS; i 


ENTER__COROUTINE 


—— ENTER _COROUTINE (<coroutine-table>) ; —_ 


ERROR__COMMUNICATE 


—— ERROR_COMMUNICATE (<error-message— ) ; rrr 


EVALUATION__STACK__TOP 


— EVALUATION_STACK_TOP — A 


EXECUTE 


EXIT__COROUTINE 


— EXIT_COROUTINE (<coroutine-table> ) ; SS 


FETCH 


—— FETCH (<(1/O-reference-address> , <port-and-channel-address> , —————¢- -—_________> 
>————— <result-descriptor-address> ) ; cc rc 


FETCH_.._.COMMUNICATE__MSG__PTR 


—— FETCH COMMUNICATE_MSG_PTR —__.______| 


FIND__DUPLICATE__CHARACTERS 


—— FIND_DUPLICATE_CHARACTERS ( <reference-identifier-1=> , ———————____—> 
>———~ <count-identifier>, <character-identifie.> , ————— 


>—————~ <reference-identifier-2> ) ; i —_ 


FINI 


—— FINI Ss 
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FREEZE PROGRAM 


GROW 

—— GROW (<paged-array-identifier> , <increase-amount> ) ; $< 
HALT 

—— HALT (<halt-value>) ; I 
HASH__CODE 


—— HASH_CODE (<hash-code-value> ) oe 


IF, THEN, and ELSE (Conditionals) 


— IF <condition> THEN a i ies a < —————————_ > 
<<statement-1> 
L_ ELSE 


[ <statement-2> maul 


INITIALIZE__ VECTOR 


— INITIALIZE_VECTOR (<table-address>) ; 


LAST__LIO__STATUS 


— LAST_LIO_STATUS ——————- 


LENGTH 


— LENGTH (<identifies>) $$ 


LIMIT__REGISTER 


—— LIMIT_REGISTER Se aa 


LOCATION 


— LOCATION ( <identifie> ————————— ) ———_——_—__ 
= <array-identifier> ———— 
< procedure-identifier-=> ————— 
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MAKE__DESCRIPTOR 


—— MAKE_DESCRIPTOR (<descriptor> ) —— AA A —_ 


MAKE__READ__ONLY 


—— MAKE_READ_ONLY (<paged-array-identifier>) , <page-number>) ; STEUER EERE 


MAKE__READ__WRITE 


—— MAKE_READ_WRITE (<paged-array-identifier> , <page-number> ), > 


MESSAGE__COUNT 


—— MESSAGE_COUNT (<queue-file-id>, <identifier> ) ; Se | 


MONITOR 


—— MONITOR $ALL 


AND NOT S$NONE 
OR <sequence-range> 
+ <procedure-name> 


M__MEM__SIZE 


—— M_MEM_SIZE — SS 


NAME__OF__DAY 


— VANE 0 NS 


NAME__STACK__TOP 


—— NAME_STACK_TOP SSS SSS SS 


NEXT__ITEM 


—— NEXT_ITEM (<identifier>) SS 
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NEXT__TOKEN 


—— NEXT_TOKEN (< first-character-address> , <separator>, 


> +) <result-reference-identifier> ) - 


OPEN 


—— OPEN TL < file-identifier > 
< switch-file-id > (<index > ) 


INPUT 


LOCK 
LOCK _OUT 
NEW 


OUTPUT 
PRINT 
PUNCH 
REVERSE 
STACKERS 


TE 


OVERLAY 


—— OVERLAY (<interpreter-index> ) ; —— 


PARITY__ADDRESS 
— PARITY_ADDRESS 


PREVIOUS_ITEM 


—— PREVIOUS_ITEM (<identifier>) —---——— 
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INTERPRET ———- 


NO_ REWIND ——--———— 


ON FILE_MISSING < statement > 
ON FILE LOCKED <statement > 
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PROCESSOR__TIME 


— PROCESSOR_TIME. 


PROGRAM__SWITCHES 


—— PROGRAM_SWITCHES aca’ (serene Nee eels! 
( <switch-number> ) 


READ 


<switch-file-identifier-> (<number> ) 


- <remote-key-identifier> ————| 


4 
< queue-family-identifier> ; 
>———— ( <identitier-1>) — A 


WITH RESULT_MASK <address-generator> : | 


ON EOF <statement-1>; 
ON EXCEPTION <statement-2>; 
ON INCOMPLETE_1O <statement-3> ; 


READ__ CASSETTE 


—— READ_CASSETTE ( <destination-identifier> , aan i HASH_TOTAL ae la 
NO_HASH_TOTAL 
> <result-identifier> ) ; —— OS —_ 


READ__FILE__HEADER 


—— READ_FILE_ HEADER ( <file-identifier>, <destination> ) ; -———_——_—_—_——  ____—_____> 
—1L—an— ON FILE_MISSING <statement-1 
1 ON FILE_LOCKED <statement-2> 
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READ__FPB 


—- READ _FPB ( a as < file-identifier> | <destination> ); —- 


< file-number-> 


READ__OVERLAY 
—— READ OVERLAY ( <overlay-information> ) ; $$$ 


REDUCE 


~— REDUCE <reference-identifier-1> a 


ia aa aaa — UNTIL ———-—> 

SETTING Sete | 

TT FIRST EOL <literal> o_- 
LAST NEO <identifier> 


/ = 


IN) <character-table-identifier> — 
ON EOS_CYCLE <>; ——] 
ON EOS <statement-2> ; 
REFER 


——— REFER <creference-identifier-> TO <identifie >; AAA _—_—_——_ 


REFER__ADDRESS 
—— REFER_ADDRESS ( <reference-identifier> , < address> ) ; —_ 
REFER__LENGTH 


—— REFER_LENGTH ( <reference-identifier> , <length>) ;; ————-——— | 


REFER__TYPE 
—— REFER_TYPE ( <reference-identifier>, <type> ); > 


RESTORE 
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RETURN 


Ls 


<expression > 


RETURN__AND__ENABLE__INTERRUPTS 


—— RETURN_AND_ENABLE_INTERRUPTS: SETTER EERE 


REVERSE__STORE 


—~—— REVERSE_STORE (<address-generator-1>, <address-generator-2>, 
=o a SS address-generator-n>, <expression> ) —- 


SAVE 


—-SAVE (——b-——  <value> i ); <_< 


SAVE_STATE | 


—— SAVE_STATE; 


SEARCH__DIRECTORY 


——— SEARCH_DIRECTORY ( <file-identifier, <identifier=> , ——_—_-——_——_ ima iii  cxcr 


OTe) he 
CHARACTER ON FILE_MISSING <statement-1>: 
L ON FILE_LOCKED <statement-2> ; sie 


SEARCH__LINKED__LIST 


—- SEARCH_LINKED_LIST (<first-item>, <compare-field> , —-——-—— > 


>—— <compare-value>, <relation>, <link-field>) ; $$ _______—___—____] 


SEARCH__SDL_STACKS 


—— SEARCH_SDL_STACKS ( <stack-base>, <stack-top>, <compare-base> , ——————————____—_> 


>————" <compare-top> ) ee 
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SEARCH_SERIAL__LIST 


— SEARCH SERIAL_LIST (<compare-value>, <relation>, <compare-field=> ————————_——> 
> S| <first-item>, <table-length> . <result-identifier> ) ; ———_ 


SEEK 


—— SEEK <file-identifier > [ <record-address-identifier >] ; ——_ 


SEGMENT___PAGE 


—— SEGMENT_PAGE ( <segment-identifie=> —————  _—__$_——> 


1 


, IMPORTANT 
OF <page-identifier> — 


SKIP 
— SKIP <(file-identifier> TO <channel-number> ; a 
SORT 
— SORT (<sort-information-table>, <key-table>,§ ————_ 


>—————- <input-file-identifier> , <output-file-identifier> > 


~~. aL. CCS 
tifier> 


—— | <translate-file-identi 


SORT__MERGE 


— SORT_MERGE ( <sort-information-table>, <key-table>, ————__ 
>—————. <_ merge-input-table> , <output-file-identifie.=> ——_—___ 


[ ie | 
, <translate-file-identifier> 


SORT_SEARCH 


— SORT_SEARCH ( <first-table-entry-address> , <limit> ) ; tT _ 


SORT__STEP__DOWN 


—— SORT_STEP_DOWN (<record-1>, <record-2>, <key-table-address— ) ; __—_—_——_ 
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SORT__SWAP 

—— SORT_SWAP ( <identifier-1>, <identifier-2>) ; $$ 

SPACE 

— SPACE <file-identifier> Pe <space-amount> (i_e-_> 
TO_EOF 


ON EOF <statement-1>; 
ON EXCEPTION <statement-2>; 


1 
SPO_.INPUT__PRESENT 


— SPO_INPUT_PRESENT $$$ 


STOP 


alicia (Sepia oeiienie teil: (ae | 


<syntax-errors> 


SUBBIT 


—— SUBBIT (<string-identifier>, <start-position> as a a ) — 
. , <length> 


SUBSTR 


— SUBSTR (<sstring-identifier>, <start-position> aa ces |i ) — 
, <length> 


SWAP 


—— SWAP (<destination>, <source> J 


S_.MEM__SIZE 


—S MEN_SIZE SS 


THAW__PROGRAM 


— THAW_PROGRAM; Neen | 
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THREAD__ VECTOR 
—— THREAD_VECTOR (<table-address>, <index>); ooo 


TIME 


neo ee 
( CIVILIAN - ' BIT — — 


[—counren = CHARACTER = 
MILITARY - DIGIT 
TIMER 


ee 


TRACE 

Se or 

—— NO ( <trace-options>) 

TRANSLATE 

——- TRANSLATE (<source-identifier>, <source-item-size> , ———————_ 

>————— <translate-table> , <translate-item-size> , <resultidentifier>) ———________________| 

UNDO 

ee ep ed 
<identifier> - 

USE 


—— USE ( es <declared-identifier.> ma Aeer ) OF <defined-identifier> ; —_——_| 
VALUE__DESCRIPTOR 


—— VALUE_DESCRIPTOR (<addressefield> } — £-@—————___________| 
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WAIT 


i (ga gt (Oe 
[ <start-position> ] 


FSFE 
TIME_TENTHS (<wait-tine>) ————————________________> c 


C 


B > SPO_INPUT_PRESENT 
DC_IO_COMPLETE 
Q_WRITE_OCCURRED (<file-id-1>) 


READ_OK aaa aa a TEENS if ) 
[ <que-family-id-1> ) 

WRITE_OK (<file-id-3> an Scciit aneee re Ses ( ) 
[ <queue-family-id-2> ] 


A < 
Ee near! 


WHEN <when-expression> 
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WRITE 


ere ee Wee ee 
LOCK <switch-file-id> (<identifier-1> ) 


NO 
PAGE 
SINGLE —————__—__ 


<channel-number> 
[ <record-address-identifier=> —-————— 7 | 
= <remote-key-identifier> a! 
<queue-family-identifie> = ——-———"— 
aan are Ti (<cod>) 
TOP 
OO ; 
WITH RESULT_MASK <adcldress-generator> ——————— 
ne een 


a Na a 
ON EXCEPTION en 
ON INCOMPLETE_!IO COR ee 


WRITE__FILE__HEADER 


—— WRITE_FILE_HEADER (<file-identifier> , <destination> ) ; ————-—_________—__—_—_——_> 


= ail 


ON FILE_MISSING <statement-1>; 
1 ON FILE_LOCKED <statement-2>: 


WRITE__FPB 


—— WRITE_FPB ( pace ioe <file-identifier> , S“source>) ; ——______—_| 


< file-number> 
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WRITE_OVERLAY 


X__DIV 
—— X_DIV (<expression-1>, <expression-2> ) ——____.—__-______—__ 


X__MOD 


—— X_MOD (<expression-1>, <expression-2> ) 


| 


X_MUL 


—— X_MUL (<expression-1>, <expression-2> ) —_—_. 


ZIP 


—— ZIP <MCP-command> ; $$ 
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Compiler Options 
The following are the syntax diagrams for the compiler options. 


Compiler-Directing Options 


i ee Oa 
& CREATE_MASTER —— 


RECOMPILE a ae 
— “ <multi-file-id>” 


CSSIZE <cssize-number> ~ 

DEBUG <sequence-number.> 
DYNAMICSIZE <dynamicsize-number> 
ESSIZE <essize-number> -————— 
INTERPRETER “ <file-identifier>” 


INTRINSIC “ <multi-file-identifier> "’ 
LIBRARY “ <file-identifier>” 
LIBRARY_PACK “ <pack-identifier>“” 
MERGE 

NSSIZE <nssize-number> - 

PAGE 

PPSSIZE <ppssize-number-> 
RECOMPILE_TIMES ——- 


SEQ <base-sequence-number-> aiid cat 
» + <increment> 
ia aes Oe ue 
<ending-sequence-number> 


VSSIZE <vssize-number> : 
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ADVISORY 
AMPERSAND 

CHECK 

CODE 

CONTROL 
CONVERTDOTS 
DETAIL 

DOUBLE 

ERROR_FILE 
EXPAND_DEFINES 
FORMAL_CHECK 
FREEZE 

LIST 

LISTALL 

LOCKI 

MONITOR 

MONITOR_ OFF 

NEW 

NO_DUPLICATES 
NO_SOURCE 
PASS_END 

PROFILE 

PPROFILE 

SGL 

SINGLE 

SIZE 

SUPPRESS 
UNDERSCORES_IN_FILE_NAMES 
USEDOTS 
WORKING_SET_BYTES 
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XMAP ——--——— 
XREF ——- 
XREF_LITERALS 
XREF_ONLY 


Conditional Compilation 


— & i SET << boolean-identifier> — 


RESET 


—& IF <boolean-identfier> ——-———— —$—$_$__<<$<> 
NOT 


ea <source-images-> Wi tee 
<nested-block> —————- ELSE —— <source-images> 


—— <nested-block> 


> «END 


UPL RAILROAD SYNTAX GUIDE 


All of the railroad syntax diagrams valid for the UPL compiler are presented in this subsection. 


Fundamentals 


The following are the syntax diagrams for the fundamental items. 


Identifiers 


<letter> - SS ee 


<digit>— 


—— <letter> 


Numeric Literal 
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Bit-String Literal 


—e-— (4) 


(1) 


Character-String Literal 


B 1000 Systems SDL/UPL Reference Manual 


SDL/UPL Syntax Reference Guide 


<hex-digits> @ + 


<octal-digits> 
<quartal-digits> 


<binary-digits> 


——T < EBCDIC-character> ig oo 


Enclosed Comment 


——~ /* <comment-text> */ 2 _ 


End-of-Record Comment 


So <comment-text > _——_ 
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Declarations 


The following are the syntax diagrams for the data, record, file, and switch-file declarations. 


Data Declarations 


—~ DECLARE 
<identifier-part> 


<structured-part> 


< paged-array-part> 
<dynamic-part> 


<reference-part> 


<remaps-part> 


<identifier-part > 


<identifier> ee ee a 
—-- (<number-of-elements> ) —-———_ 
i skal ptiencenennarmnneneiace te 
(<number-of-elements> ) 


>_< type-part > — 


<structured-part > 


Le were —— 


A <a 
B <identifier-part> 
FILLER -——————--- 
<remap-identifier> REMAPS <identifier> 
DUMMY REMAPS <identifier> 


< paged-array-part > 


PAGED (<elements-per-page> ) <identifier> 
>——- (<‘number-of-elements>) <type-part> 
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< dynamic-part > 


DYNAMIC <identifier-part> ee 
<remap-part> 


<reference-part > 


<identifier> 


ae aie et | Oe ee 
> REFERENCE + 


<remaps-part > 


—— <remap-identifier> REMAPS —————————- <identifier> < type-part> ———________| 


<type-part > 


<record-identifier> 


- FIXED 
-~ BIT 
( <bit-size> ) 
~ CHARACTER 
(<character-size> ) 


~ <record-identifier> 


Record Declarations 


— RECORD <cunstructured-part> ; | 


<unstructured-part > 


—— <record-identifier> 


Pala <identifier-part> <type-part> 
{ ———_—_————. <identifier-part> pe eee ee | 


_ <identifier-part > 


as <identifier> 
- FILLER 
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<remaps-part > 


<remap-identifier> REMAPS —---————--———————- <identifier> 


<type-part > 


FIXED 

BIT (<bit-size> ) 

CHARACTER ( <character-size> ) - 
<record-identifier> 


File Declarations 


—~— FILE a ae eenerer SS 


il 


( i anes eaens 


ALL__AREAS__AT__OPEN 


—— ALL_AREAS_AT_OPEN ———_--——— 


AREAS 


L | 


—— AREAS = <number-of-areas-> / < blocks-per-area> tr 


BUFFERS 


——— BUFFERS = <Cnumber-of-buffers->>-——— 
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DEVICE 


— DEVICE = ——————— 


— CARD 
——CARD_PUNCH 
FORMS | BACKUP 
BACKUP DISK 
BACKUP TAPE 
- NO BACKUP 
OR BACKUP 


OR BACKUP DISK 
OR BACKUP TAPE 
- CARD_READER : 


- CASSETTE 
~- DATA_RECORDER_ 80 
~ DISK 
SERIAL 
RANDOM 
- DISK_FILE 
SERIAL 
RANDOM 
 DISK_PACK 
SERIAL 
RANDOM 
- PORT 
- PRINTER 
= FORMS = BACKUP 
BACKUP DISK 
BACKUP TAPE 
NO BACKUP 
OR BACKUP 


OR BACKUP DISK 
OR BACKUP TAPE 
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PUNCH_PRINTER — _ 
FORMS 


BACKUP 
BACKUP DISK 
BACKUP TAPE 
NO BACKUP 
OR BACKUP 
OR BACKUP DISK 
OR BACKUP TAPE 


QUEUE ( <max-messages> ) ow eh 
FAMILY (<size >) 


READER_PUNCH_PRINTER —— 
FORMS BACKUP 

BACKUP DISK 
BACKUP TAPE 

NO BACKUP 

OR BACKUP 

OR BACKUP DISK 
OR BACKUP TAPE 


READER_SORTER 


REMOTE ( <max-messages> ) Ls 
WITH HEADERS 


SORTER_READER 
TAPE 

TAPE_NRZ 
TAPE_PE 
TAPE_7 

TAPE_9 
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END_.OF__PAGE__ACTION 


— END_OF_PAGE_ACTION | 


EU_INCREMENTED 


—— EU_INCREMENTED = <drive-number> ——_.___—___—__ 


EU__SPECIAL 


—— EU_SPECIAL = <drive-number> ef 


EXCEPTION_MASK 


—— EXCEPTION_MASK = <exception-bits> J 


FILE_.TYPE 

—FILE_TYPE = DATA 
INTERPRETER 
CODE 
INTRINSIC 
PSR_DECK 

HOST__HNAME 


—— HOST_NAME = “ <host-name>” 


INVALID_CHARACTERS 


——— INVALID_CHARACTERS = 0 
1 
2 
3 
LABEL 


—— LABEL = " <multi-file-identifier> ” 


/" <file-identifier> " 
LABEL__TYPE 


—— LABEL_TYPE = UNLABELED 
— BURROUGHS 
ANSI 
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LOCK 


— LOCK 


MODE 


—— MODE = ASCII —— 
EBCDIC — EVEN = 
BCL -- ODD 


BINARY 
MULTI__PACK 
re 0) Oa Os ae eR ey 


NUMBER__OF__STATIONS 


—— NUMBER_OF_STATIONS = <number-> 


OPEN__OPTION 


/- 
—— OPEN_OPTION = INPUT 


OUTPUT 
NEW 
DEFAULT 
OPTIONAL 
—— OPTIONAL 
PACK__ID 


—— PACK_ID = " <pack-identifier>’’ —— 
PROTECTION 
—— PROTECTION = <number> 


PROTECTION__IO 


—— PROTECTION_IO = <number> 
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RECORDS 

—— RECORDS = ee <physical-size> a ns Ae: 
<ogical-size>/<records-per-block> 

REEL 


— REEL = <reel-number> ss 


REMOTE__KEY 


— REMOTE_KEY CO 


SAVE 
— SAVE = <number-of-days> —_——— 
SECURITYTYPE 
—— SECURITYTYPE = <number> —_ > 
SECURITYUSE 
—— SECURITYUSE = <numbee> AAA 
SERIAL 
— SERIAL = a i <number> : 

"’ <character-string> ”’ 
TRANSLATE 


—— TRANSLATE = “ <file-identifier>“ ——— 


USE__INPUT__BLOCKING 


— USE_INPUT_BLOCKING eo 


USER__NAMED__BACKUP 


—— USER _NAMED_BACKUP SUE 
VARIABLE 


—— VARIABLE oo 
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WORK__FILE 


— WORK _FILE ee 


Switch File Declarations 


— SWITCH_FILE <(switch-file-identifier>> rane (Sage ean i —- 


Define Statement 


ean eke 
- ie ike ee cer 
pe 
‘ 
B>—AS #  <text> eee ve : —— 


Procedure Statement 


The following are the syntax diagrams for the procedure declaration, procedure body, procedure end, 
and procedure invocation statements. 


Procedure Declaration 


ee eee i PROCEDURE <procedure-identifie > ——————______—____—__—_—_—_—_—_—> 
FORWARD 


__> 
( = ae eee ) a ae 
<type-part> 
FORMAL a a < formal-element-part> eee 
FORMAL_VALUE 
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< type-part > 


BIT —T_ ( <bit-size> ) 
VARYING 
aa a ( <character-size> ) 
VARYING 


FIXED 
REFERENCE 
VARYING. 


< formal-element-part > 


A Og 


—— <identifier> <type-part> 


| (*) 
(EE sen2 $1 
(*) 


Procedure Body 


> <declaration-statement> <procedure-statements 


RETURN 


» <expression> 


Procedure End 


sian SETI RTAT Ie eee 
<procedure-identifier> — 


Procedure Invocations 


— ee] } — 
( oe aes <parameter> ) 
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Expressions 


The following are the syntax diagrams for the expressions. 


eae (Saas CCN Mie 
<unary-operator> —" 


-—— <unary-operator> 


Verbs 


The following are the syntax diagrams for the verbs. 
ACCEPT 


—— ACCEPT <destination> ; ——_—_——_—__———--— rn, eee 


ACCESS__FILE__INFORMATION 


— ACCESS _FILE_INFORMATION (<(file-identifier>, i: ie BIT a lad 
CHARACTER 


> || <destination> ) ; 


BINARY 


—— BINARY (<character-string> ) 


BUMP 


—— BUMP <identifier> ee 
—— BY <cincrement-amount> : 


CASE (format-1) 


——+ 
—— 
——_ 


— CASE <index> ; —————_——— 
>~—_——- <statement-0> ; ——____- — 
>—_—— <statement-1> ; ——-— 


>——- <statenent-n> ; —-— OOOO 


>——— END Case; ——- A 


C-44 


B 1000 Systems SDL/UPL Reference Manual 
SDL/UPL Syntax Reference Guide 


CASE (format-2) 


— CASE <index> OF ( a: sas ) ee 


CHANGE 


CHAR__TABLE: 


CAT 
—— CHAR_TABLE (  <EBCDIC-characters> ” ) ———_ 
@< 2-hexadecimal-numbers> @ 


CHARACTER__FILL 


—- CHARACTER_FILL (<destination> , <source> ) ; —_—- 


CLEAR 


CLOSE 
Ne ee ee eee 
<switch-file-identifier> (<index>) WITH 


CODE_FILE 

CRUNCH / 
IF_NOT_CLOSED 

LOCK 

NO_REWIND 

PURGE 

REEL 

RELEASE 

REMOVE 

ROLLOUT 
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COMPILE__CARD__INFO 


—— COMPILE_CARD_INFO ( <destination> ) ; ccc 


CONSOLE__SWITCHES 


——— CONSOLE_SWITCHES ———— cc cc a | 


CONVERT 
Pca = )— 
CHARACTER —— 


— CONVERT (<convert-value>, 


4 
3 
2 
1 
DATA__ADDRESS 
—— DATA_ADDRESS (<identifier>) _.  __________—_| 
DATE 


pe ge ee 
) a ecareorr aes DAY ———— BIT —— ) 

JULIAN -- ob CHARACTER 

MONTH — DIGIT — 


YEAR —— 


DECIMAL 


— DECIMAL (<string>, <string-size> ) ———_ 


DECREMENT 


=a ~~, DECREMENT < identifier> ee ee 
BY < decrement-amount> 


DISPLAY 
—— DISPLAY (<display-identifier> ) Se re ; -———__—_ 
, CRUNCHED 
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DO 


= — * 
tages eee = FOREVER - ieee rene il CSE 
aa END we, etek pein — 
<group-name> a 


DUMP__FOR__ANALYSIS 


a DUMP_FOR_ANALYSIS; 


DYNAMIC_.MEMORY__BASE 


—— DYNAMIC_MEMORY_BASE 


FIND__DUPLICATE__CHARACTERS 


—— FIND_DUPLICATE_CHARACTERS ( <reference-identifier-1> , ———-_____ > 
>———— <count-identifier> , <character-identifie> , ———————————————— > 


> <reference-identifier-2> ) ; _ 


FINI 


— FINI 
FREEZE__PROGRAM 


—— FREEZE_PROGRAM; 


GROW 


— GROW (<paged-array-identifier> , <increase-amount> ) ; ——_§_f 
HASH_.CODE 


——— HASH_CODE (<hash-code-value> ) oo 


IF, THEN, and ELSE (Conditionals) 
—— IF <condition> THEN ia een al .7-_-__—_——-C------ 
<statement-1> 


ical RARE Cen (i 
<statement-2> 
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LENGTH 
—— LENGTH (<identifier> ) ———_———_- ei 4 
LIMIT__REGISTER 


—— LIMIT_REGISTER —-—________ 


LOCATION 


— LOCATION ( <identifies> ————————— ) ——__—____ 
— <! array-identifier> ———{ 
< procedure-identifier-> —-—— 
MAKE __READ__ ONLY 


— MAKE_READ_ONLY (<paged-array-identifier> ) , <page-number> ) ; — 


MAKE__READ__ WRITE 


—— MAKE_READ_WRITE (<paged-array-identifier>, <page-number> ), —_—--—__ 
MESSAGE__COUNT 

—— MESSAGE _ COUNT (<queue-file-id>, <identifier> ) ; ——_ 
M__MEM__SIZE 


—M_MEM_SIZE ——————_—_____—___- SS SSS SSS SSS 


NAME__OF__DAY 


——NAME_OF_DAY:- 
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OPEN 


ee ee eee 
< switch-file-id > (< index > ) WITH 


enews. 


INPUT ; 
INTERPRET ———————— / 
LOCK 
LOCK _OUT 
NEW 
NO_ REWIND 
OUTPUT ————— 
PRINT 
—— PUNCH ————_—_-—— 
REVERSE 


STACKERS 


‘ a ON FILE MISSING <statement > 
ON FILE LOCKED <statement > 


PROCESSOR__TIME 
—~ PROCESSOR _TIME $$ 


PROGRAM__SWITCHES 


Paste set WMleprearr lp eens Fees ee ge 
( <switch-number> ) 
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READ 


—— READ a <file-identifier> ——— no es Ee adi Wail 
<switch-file-identifier-> (<number> ) ———————— 
eee ee ee 
[ <record-address-identifier=> ———— ] 


<rernote-key-identifier> 


< queue-family-identifier> 


>——-_ ( <identitier-1> )§ —_—__- 


ee ages cue gin teen ae en 
WITH RESULT_MASK <address-generator> es 


ON EOF <statement-1> ; 
ON EXCEPTION <statement-2> ; 
ON INCOMPLETE _1O <statement-3> ; 


REDUCE 
—— REDUCE <reference-identifier-1-> ———-—-— eee > 


ee -—- UNTIL —— 

SETTING a aaa 

Te FIRST EOL. <literal> - —o 
— LAST NEQ <identifier> 


a 


IN <character-table-identifier-> —— 


ON EOS_CYCLE <statement-1>; 


ON EOS <statement-2>; - 


REFER 


——— REFER <reference-identifier> TO < identifier >; — 
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RETURN 


es 


<lexpression > 


REVERSE__STORE 


—— REVERSE_STORE ( <address-generator-1>>, <address-generator-2>, ——————__—_——________—____ 
a << > , <address-generator-n>, <expression> ) Sooo 


SEARCH__DIRECTORY 


—— SEARCH_DIRECTORY ( <file-identifier, <identifier>, 


_.. CHARACTER | al eae rer FILE _MISSING <statement-1> ; — i 
cae (eae ON FILE_LOCKED <statement-2> ; | 


SEARCH.__LINKED__ LIST 


—— SEARCH_LINKED_LIST ( <first-item>, <compare-field> , = 


> <compare-value>, <relation>, <link-field> ); ne 


SEEK 


— SEEK <file-identifier > [ <record-address-identifier >] ° << 


SEGMENT__PAGE 


——— SEGMENT_PAGE ( <segment-identifier> 


, IMPORTANT i SS 


OF <page-identifier> 


SKIP 


—— SKIP <file-identifier-> TO <channel-number> ; a 
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SORT 
—— SORT (<sort-information-table>, <key-table> , ——————___ 
> <input-file-identifier> , <output-file-identifier> ——— OO > 


enix SELMER ee 
< ane eee 


SORT_MERGE 


—— SORT_MERGE (<sort-information-table>, <key-table>, ————_—_-—— 
>——— _ <_merge-input-table> , <output-file-identifier=> —@@@—————_——_—_———__——— 


ee 
, <translate-file-identifier> 


SORT_SWAP 
—— SORT_SWAP ( <identifier-1>, <identifier-2> ) ; ooo 
SPACE 
—— SPACE <file-identifier> Pe <space-amount> i_e_“_ 
TO_EOF ——————_ 
L ON EOF <statement-1>; 
1 ON EXCEPTION <statement-2>; — 


SPO__INPUT__PRESENT 
—— SPO_INPUT_PRESENT ETE 


STOP 


aa er neice ite anal 
<syntax-errors> —— 


SUBBIT 


—— SUBBIT ( <string-identifier>, <start-position> ae ee ts ) — 
————= | <length> 
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SUBSTR 


—— SUBSTR ( <string-identifier> , <start-position> 


| , <length> | 


SWAP 


—— SWAP ( <destination>, <source> 


THAW_._PROGRAM 


—— THAW_PROGRAM; 


TIME 


rie cs cece 
CIVILIAN BIT ) 


( ' 
- COUNTER — - CHARACTER | 
MILITARY DIGIT 


—- TRANSLATE (<source-identifier>, <source-item-size>, —— 


> <translate-table>, <translate-item-size>, <result-identifier> —__—_-—____-—-—_ 


UNDO 
ee dee 
<identifier> 


USE 


—— USE ( a ee < declared-identifier> ) OF <defined-identifier> ; ——_—_| 


TRANSLATE 
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WAIT 


eee 
[ <start-position> | 


ji a gc et ee if 


“1 ———“—“—“—-——“—  ——> B 
TIME_TENTHS (<wait-time>) ————————-_____ > Cc 
B SPOUINGUT: PRS a eS SSS SSS C 


DC_!0_COMPLETE ————-- 
Q_WRITE_OCCURRED (<file-id-1>) 


READ_OK (<file-id-2> ia ear e ) 
[ Sr nen ie 

WRITE_OK (<file-id-3> aa Sige mena: ) 
[ < queue-family-id-2> ] 


a —ea—r—n—XvvvoO eee 
ah a ree ne 
WHEN <when-expre: 


‘sion> 
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WRITE 
Te et a ee eet 
LOCK <switch-file-id> (<identifier-1> ) 
~——- DOUBLE 
———— NEXT 
— NO 
ee PAGE 


— SINGLE 
—— <channel-number> 


— | <record-address-identifier> | 
. So paleo ———| 
< queue-family-identifier> 
one Sea el (<record>) ——————————— 
— TOP 
OO tat) aati to :_— 
———- WITH RESULT_MASK <address-generator> 
a aie ON EOF <statement-1>; ae | 
L ON EXCEPTION <statement-2> ; sees! 


fcz ON INCOMPLETE_IO <statement-3> ; aaussel 


X__MOD 


—— X_MOD (<expression-1>, <expression-2> ) SO 


X__MUL 
—— X_MUL (<expression-1>, <expression-2> ) ——__§_ TT 
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X_SUB 
—— X_SUB (<expression-1>, <expressiori-2> ) — + 
ZIP 


—— ZIP <MCP-command> ; se _ 


Compiler Options 
The following are the syntax diagrams for the compiler options. 


Compiler-Directing Options 


dl [| 
Ts & CREATE_MASTER — RECOMPILE Th. 
—— " <multi-file-id>” 


CSSIZE <cssize-number> 

DEBUG <sequence-number> 
DYNAMICSIZE <dynamicsize-number> 
ESSIZE <essize-number> — 
INTERPRETER  < file-identifier> ” 
INTRINSIC “ <multi-file-identifier> ” 
LIBRARY “ <file-identifier> ” 
LIBRARY_PACK “ <pack-identifier>‘’ ——— 
MERGE 

NSSIZE <nssize-number> 

PAGE 

PPSSIZE <ppssize-number> 
RECOMPILE_TIMES —— 


SEQ <base-sequence-number> a i 
— + <increment> 

Ce eee, A oe 

<ending-sequence-number> ———— 


VSSIZE <vssize-number-> 
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B <—- 


° 
= NO ADVISORY 


AMPERSAND 
CHECK 
CODE 
CONTROL 
CONVERTDOTS 
DETAIL 
DOUBLE 
ERROR_FILE 
EXPAND_DEFINES 
FORMAL_CHECK 
FREEZE 
LIST 
— LISTALL 
LOCKI 
MONITOR 
MONITOR_OFF 
NEW 
NO_DUPLICATES 
NO_SOURCE 
PASS_ END 
PROFILE 
PPROFILE 
SGL 
SINGLE 
SIZE 
SUPPRESS 
UNDERSCORES_IN_FILE_NAMES 
USEDOTS 
WORKING_SET_BYTES 
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XMAP ——- 
XREF ——- 
XREF_LITERALS 
XREF_ONLY 


Conditional Compilation 


a & cL. SET << boolean-identifier> eee 


RESET 


——& IF << boolean-identfier> 
NOT AND 
OR 


— <source-images> a i =e 
<nested-block> —————— ELSE —— <source-images> —— 
<nested-block> 


END 
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APPENDIX D 
GLOSSARY OF COMMONLY USED TERMS AND ACRONYMS 


absolute address 


1. An address that identifies a storage location or a device without the use of any intermediate 
reference. 
2. An address that is permanently assigned by the machine designer to a storage facility. 


address 


1. A character or group of characters that identifies a register, a particular part of storage, or 
some Other data source or destination. 
2. To refer to a device or an item of data by its address. 


address part 
A part of an instruction that usually contains only an address or part of an address. 


address register | 
A register in which an address is stored. 


algorithm 
A finite set of well-defined rules for the solution of a problem in a finite number of steps. 


alphabet 
An ordered set of all the letters used in a language, but does not include punctuation marks. 


alphabetic character set 
A character set that contains letters and may contain control characters, special characters, and 
the space character, but not digits. 


alphanumeric 
Pertaining to a character set that contains letters, digits, and usually other characters such as 
punctuation marks. 


alphanumeric character set 
A character set that contains both letters and digits and may contain control characters, special 
characters, and the space character. 


alphanumeric data 
Data represented by letters and digits, perhaps with special characters and the space character. 


American Standard Code for Information Interchange (ASCII) 
The standard code, using a coded character set of 7-bit coded characters (8-bits including parity 
check), used for information interchange among data processing systems, data communication 
systems, and associated equipment. The ASCII set consists of control characters and graphic 
characters. 


AND 
A logic operator having the property that if P is a statement, Q is a statement, R is a statement, 
..., then the AND of P, Q, R, ... is TRUE if all statements are TRUE, FALSE if any statement 
is FALSE. 
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application program 
A user-written program that performs tasks. 


arithmetic instruction . 
An instruction in which the operation part specifies an arithmetic operation. 


arithmetic operation 
An operation that follows the rules of arithmetic. 


array 
An arrangement of elements in one or more dimensions. 


ASCII 
The acronym for American Standard Code for Information Interchange. 


assignment statement 
An instruction used to express a sequence of operations, or used to assign operands to specified 
variables, symbols, or both. 


base address 


1. A numeric value that is used as a reference in the calculation of addresses in the execution 
of a computer program. 

2. A given address from which an absolute address is derived by combination with a relative ad- 
dress. 


beginning of job (BOJ) 
The execution of a single program unit to be performed by the system. 


binary 
Pertaining to a selection, choice, or condition that has two possible different values or states. 


binary arithmetic operation 
An arithmetic operation in which the operands and the result are represented in the pure binary 
system. 


binary code 
A code that makes use of only two distinct characters, usually 0 and 1. 


binary digit (bit) 
In binary notation, either of the characters 0 or 1. 


binary search 
A search in which, at each step of the search, the set of items is partitioned into two equal parts, 
some appropriate action being taken in the case of an odd number of items. 


bit 
In the pure binary system, either the digit 0 and 1. Synonymous with binary digit. 


bit string 
A string consisting solely of bits. 


blank 
A part of a data medium in which no characters are recorded. 
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blank character 
A graphic representation of the space character. 


block length 


1. The number of records, words, or characters in a block. 
2. A measure of the size of a block, usually specified in units such as records, words, computer 
words, or characters. 


BOJ 
The acronym for beginning of job. 


boolean 
Pertaining to the processes used in the algebra formulated by George Boole. 


boolean operation 


1. An operation in which each of the operands and the result take one of two values. 
2. An operation that follows the rules of boolean algebra. 


boolean operator 
An operator in which each of the operands and the result take one of two values. 


buffer 
A storage area used to compensate for a difference in rate of flow of data, or in time of occur- 
rence of events, when transferring data from one device to another. 


buffer storage 
A storage device that is used to compensate for differences in the rate of flow of data between 
components or, within an automatic data processing system, for the time of occurrence of events 
in the components. 


byte 
A binary character string operated upon as a unit and usually shorter than a computer word. 


call 


1. The action of bringing a computer program, a routine, or a subroutine into effect, usually 
by specifying the entry conditions and jumping to an entry point. 

2. In data communication, the action performed by the calling party, or the operations necessary 
in making a call, or the effective use of a connection between two stations. 

3. To transfer control to a specified closed subroutine. 


card image 
A one-to-one representation of the hole patterns of a punched card. 


carriage control tape 


1. A tape that is used to control vertical tabulation of printing positions or display positions. 
2. A tape that contains line feed control data for a printing device. 


central processing unit (CPU) 


A unit of a computer that includes circuits that control the interpretation and execution of in- 
structions. 
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channel 


1. A path along which signals can be sent: for example, data channel, output channel. 
2. In data communication, a means of one-way transmission. 


character 
A digit, letter, or special character. 


character set 
An agreed upon, finite set of unique characters. 


clear 


1. To put one or more storage locations or registers into a prescribed state, usually that denoting 
0 (zero). 

2. To cause one or more storage locations to be in a prescribed state, usually corresponding to 
0 (zero) or corresponding to the space character. 


comment 
A description, reference, or explanation added to or interspersed among the statements of the 
source language. Comments do not affect program execution. 


compare 
To examine two items to determine their relative magnitudes, their relative positions in an order 
or sequence, or to determine whether they are identical in given characteristics. 


compile 


1. To translate a computer program expressed in a problem-oriented language into a computer- 
oriented language. 

2. To prepare a machine language program from a computer program written in another pro- 
gramming language by: 1) making use of the overall logic structure of the program, or 2) gen- 
erating more than one computer instruction for each symbolic statement, or a combination 
of (1) and (2), and (3) performing the function of an assembler. 


compiler 
A computer program used to compile. 


complement 
A number that can be derived from a specified number by subtracting it from a second specified 
number. 


computer instruction 
An instruction that can be recognized by the central processing unit of the computer for which 
it is designed. 


computer language 
A language in which the instructions consist only of computer instructions. 


computer-oriented language 
A programming language that reflects the structure of a particular computer or class of com- 
puters. A programming language in which the words and syntax are designed for use on a specific 
class of computers. 
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computer program 
A program expressed in a form suitable for execution by a computer. 


constant 
See figurative constant. 


control character 
A character occurring in a particular context to initiate, modify, or stop a control operation. A 
control character may be recorded for use in a subsequent action. A control character is not a 
graphic character, but may have a graphic representation in some circumstances. 


control operation 
An action that affects the recording, processing, transmission, or interpretation of data: for ex- 
ample, starting or stopping a process, carriage return, rewind, and end of transmission. 


control state 
A term used to refer to a program that can assume control of the system’s processor with privi- 
leged operands. The type of control state program suggested here usually means an operating sys- 
tem or MCP. 


convert 
To change the representation of data from one form to another without changing the information 
they convey. 


CPU 
The acronym for central processing unit. 


cycle 
An interval of space or time in which one set of events or phenomena is completed. Any set 
of operations that is repeated regularly in the same sequence. The operations may be subjected 
to variations on each repetition. 


data 


1. A representation of facts, concepts, or instructions in a formalized manner suitable for com- 
munication, interpretation, or processing manually or automatically. 
2. Any representations such as characters or analog quantities to which meaning can be assigned. 


data attribute 
A characteristic of a unit of data such as length, value, or method of representation. 


data base | 
A set of data, the whole or part of another set of data, and consisting of at least one file that 
is sufficient for a given purpose or for a given data processing system. 


data type 
Declares the identifier as BIT, CHARACTER, or FIXED. 


debug 
To detect, trace, and eliminate mistakes in computer programs or other software. 


decimal 


1. Pertaining to a selection, choice, or condition that has ten possible values or states. 
2. Pertaining to a number system having ten digit places. 
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decimal digit 
In decimal notation, or in the decimal number system, one of the digits 0 to 9. 


decimal notation 
A notation that uses ten different characters, usually the decimal digits. 


declaration 
In a programming language, a meaningful expression that affects the interpretation of other ex- 
pressions in that language. 


declare statement 
A statement that names a variable and assigns a memory location and data attributes to that 
name. 


default option 
An implicit option that is assumed when no option is explicitly stated. 


define 
Assigns a section of source code to an identifier. 


delimiter 
A flag that separates and organizes items of data. 


difference 


In a subtraction operation, the number or quantity that is the result of subtracting the subtrahend 
from the minuend. 


digit 
A graphic character that represents an integer: for example, one of the characters 0 to 9. 


directory 
A table of identifiers and references to the corresponding items of data. 


disk cartridge 
A secondary data storage device much the same as a disk pack and usually smaller in size. It 
can be moved on line or off line. 


disk directory 
A disk-resident table that contains the name and type of file, together with a pointer to the disk 
file header or subdirectory for all permanent files which reside on the disk. 


disk pack 
A removeable assembly of magnetic disks. A portable set of flat, recording surfaces used in a 
disk storage device. 


display 
A visual presentation of data. 


display device 
An output unit that gives a visual representation of data. Usually the data are displayed tempo- 
rarily; however, arrangements may be made for making a permanent record. 


dividend 
In a division operation, the number or quantity to be divided. 
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divisor 
In a division operation, the number or quantity by which the dividend is divided. 


EBCDIC 
The acronym for Extended Binary Coded Decimal Interchange Code 


element 
In a set, an object, entity, or concept having the properties that define a set. 


end of job (EOJ) 
The termination of a single program unit to be performed by the system. 


EOJ 
The acronym for end of job. 


error 
A discrepancy between a computed, observed, or measured value or condition and the TRUE, 
specified, or theoretically correct value or condition. 


error message 
An indication that an error has been detected. 


exclusion 
The 2-operand boolean operation whose result has the boolean value 1 if the first operand has 
the boolean value 1 and the second has the boolean value 0. 


exclusive-OR 
A logic operator having.the property that if P is a statement and Q is a statement, then P exclu- 
sive-OR Q is TRUE if either but not both statements are TRUE, FALSE if both are TRUE or 
both are FALSE. 


exclusive-OR element 
A logic element that performs the boolean nonequivalence operation. 


execute 
In programming, to change the state of a computer in accordance with the rules of the operations 
it recognizes. To perform the execution of an instruction or of a computer program. 


execution 
The process by which a computer program or subroutine changes the state of a computer in ac- 
cordance with the rules of the operations that a computer recognizes. The process of carrying 
out an instruction by a computer. The process of carrying out the instructions of a computer 
program by a computer. 


expression 
The operational portion of a program statement that produces a value. 


Extended Binary Coded Decimal Interchange Code (EBCDIC) 
A coded character set consisting of 8-bit coded characters used to represent unique letters, num- 
bers, and special characters. 


factor 
In a multiplication operation, any of the numbers or quantities that are the operands. 
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family name 
An identifier used as a file name, or the name assigned to identify a main file with subdirectory 
entries. Same as multifile-id. 


fetch 
To locate and load a quantity of data from storage. 


field 
In a record, a specified area used for a particular category of data; for example, a group of posi- 
tions in which a wage rate is recorded. 


FIFO (first-in-first-out) 
A queuing technique in which the text item to be retrieved is the item that has remained in the 
queue the longest. 


figurative constant 
A data name that is reserved for a specified constant in a specified programming language. 


file 
A set of related records treated as a unit; for example, in stock control, a file could consist of 
a set of invoices. .ne 10 


file identifier (file-id) 
All disk file identifiers used on the system must be unique to prevent duplicate file names. A 
file identifier can be composed of any combination of the following file identifier options: 


file-id 
multifile-id/file-id 
disk-id/multifile-id/file-id 


file maintenance 
The activity of keeping a file up to date by adding, changing, or deleting records. 


filler 
One or more characters adjacent to an item of data that serve to bring its representation up to 
a specified size. 


file security 
The procedures or special devices used to prevent access to or use of data or programs without 
authorization. 


fixed storage 
A storage device whose contents are inherently nonerasable, nonerasable by a particular user, or 
nonerasable when operating under particular conditions. 


flag 
1. Any of various types of indicators used for identification; for example, a word mark. 
2. A character that signals the occurrence of some condition, such as the end of a word. 
format 


The arrangement or layout of data in or on a data medium. 
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generate 
To produce a computer program by a selection of subsets from skeletal code under the controls 
of parameters. 


generator 
A controlling routine that performs a generating function; for example, report generator, I/O 
generator. 


global 
Pertaining to that which is defined in one subdivision of a computer program, and then used 
in at least one other subdivision of that computer program. 


graphic . 
A symbol produced by a process such as handwriting, drawing, or printing. 


graphic character 
A character, other than a control character, which is normally represented by a graphic. 


hardware 
Physical equipment used in data processing, as opposed to computer program, procedures, rules, 
and associated documentation. 


hash total 
The result obtained by applying an algorithm to a set of data for checking purposes; for example, 
a summation obtained by treating data items as numbers. 


heading 
In ASCII and data communication, a sequence of characters preceded by the start-of-heading 
character used as machine sensible address or routing information. 


high-level language 
A programming language that does not reflect the structure of any one given computer or that 
of any given class of computers. 


identifier 
A character or group of characters used to identify or name an item of data and possibly to 
indicate certain properties of that data. 


inclusive-OR element 
A logic element that performs the boolean operation of disjunction. 


index 


1. In programming, a subscript of integer value that identifies the position of an item of data 
with respect to some other item of data. 

2. A list of the contents of a file or of a document, together with keys or references for locating 
the contents. 

3. A symbol or numeral used to identify a particular quantity in an array of similar quantities. 


indexed address 


An address that is modified by the content of an index register prior to or during the execution 
of a computer instruction. 
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index register 
A register whose contents may be used to modify an operand address during the execution of 
computer instructions, so as to operate as a clock or counter. An index register may be used to 
control the execution of a loop, to control the use of an array, as a switch, for table lookup, 
as a pointer, etc. 


initialize 
To set counters, switches, addresses, or contents of storage to zero or other starting values at 
the beginning of, or at prescribed points in, the operation of a computer routine. 


input 


1. One, or a sequence of, input states. 
2. Pertaining to a device, process, or channel involved in an input process, or to the data or 
states involved in an input process. 


input area 
An area of storage reserved for input. 


input data 
Data being received or to be received into a device or computer program. 


input-output (I/O) 
Pertaining to a device or to a channel that may be involved in an input process and, at a different 
time, in an output process. 


input unit 
A device in a data processing system by which data may be entered into the system. 


instruction 
In a programming language, a meaningful expression that specifies one operation and identifies 
its operands, if any. 


instruction address register 
A register from whose contents the address of the next instruction is derived. An instruction ad- 
dress register may also be a portion of a storage device specifically designated for the derivation 
of the address of the next instruction by a translator, compiler, interpreter, language processor, 
operating system, and so forth. 


instruction control unit 
In central processing unit, the part that receives instructions in proper sequence, interprets each 
instruction, and applies the proper signal to the arithmetic and logic unit and other parts in accor- 
dance with this interpretation. 


instruction counter 
A counter that indicates the location of the next computer instruction to be interpreted. 


instruction format 
The layout of an instruction showing its constituent parts. 


instruction register 
A register that is used to hold an instruction for interpretation. 
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instruction set 
The set of instructions of a computer, of a programming language, or the programming languages 
in a programming system. 


integer 
One of the numbers 0, +1, —1, +2, —2, and so forth. 


internal storage 
A storage device directly controlled by the central processing unit of a digital computer. 


interpret 
To translate and to execute each source language statement of a computer program before trans- 
lating and executing the next statement. 


interpreter 
A computer program used to interpret. 


interrupt 
To stop a process in such a way that it can be resumed. 


interruption 
A. suspension of a process, such as the execution of a computer program, normally caused by 
an event external to that process, and performed in such a way that it can be resumed. 


I/O 
The acronym for input/output. 
item 
One member of a group. A file may consist of a number of items, such as records, which in 
turn may consist of other items. A collection of related characters treated as a unit. 
job 
A set of data that completely defines a unit of work for a computer. A job usually includes all 
necessary computer programs, linkages, files, and instructions to the operating system. 
justify 
1. To control the printing positions of characters on a page so that both the left-hand and right- 
hand margins of the printing are regular. 
2. To shift the contents of a register, if necessary, so that the character at a specified end of 
the data that has been read or loaded into the register is at a specified position in the register. 
3. To align characters horizontally or vertically to fit the positioning constraints of a required 
format. 
K 
When referring to storage capacity, two to the tenth power (1024). 
key 
One or more characters, within a set of data, that contains information about the set, including 
its identification. 
keypunch 


A keyboard-actuated device that punches holes in a punch card or a punched card. 
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keyword 
One of the predefined words of an artificial language. 


label 
One or more characters, within or attached to a set of data, that contains information about the 
set, including its identification. 


language 
A set of characters, conventions, and rules, that are used for conveying information. The three 
aspects of language are pragmatics, semantics, and syntax. 


language processor 
A computer program that performs such functions as translating and interpreting and other tasks 
required for processing a specified programming language. 


leading zero 
In positional notation, a zero in a more significant digit place than the digit place of the 
significant nonzero digit of a numeral. .ne 8 


left-justify 
To shift the contents of a register so that the data is moved to a specified position. To control 
the printing positions of characters on a page so that the left-hand margin of the printing is 
regular. 


letter 
A graphic character which when used alone or combined with others, represents in a written lan- 
guage one or more sound elements of a spoken language, but excludes marks used alone and 
punctuation. 


level 
The degree of subordination of an item in a hierarchic arrangement. 


level number 
A reference number that indicates the position of an item in a hierarchic arrangement. 


lexicographic level 
A lexicographic (lexic) level is a compile-time relationship of each procedure to the outer level 
of the program. The outer level is referred to as level 0 (zero). All other procedures are nested 
within lexic level O and are assigned a lexic level number representing their depth of nesting 
from lexic level 0. 


library 
A collection of related files. For example, one line of an invoice may form an item, a complete 
invoice may form a file, the collection of inventory control files may form a library, and the 
libraries used by an organization are known as its data bank. 


library routine 
A computer program in or from a program library. 


LIFO (last-in-first-out) 
A queuing technique in which the next item to be retrieved is the item most recently placed in 
the queue. 


line printer 
A device that prints a line of characters as a unit. 
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link 
In computer programming, the part of a computer program, in some cases a single instruction 
or an address, that passes control and parameters between separate portions of the computer pro- 


gram. 
list | 
An ordered set of items of data. 
literal 
In a source program, an explicit representation of the item value which must be unaltered during 
any translation. 
load 
In computer programming, to enter data into storage or working registers. 
local 
Pertaining to that which is defined and used only in one subdivision of a computer program. 
location 


Any place in which data may be stored. 


logical record 
A record independent of its physical environment. Portions of the same logical record may be 
located in different physical records, or several logical records or parts of logical records may 
be located in one physical record. 


loop 
A set of instructions that may be executed repeatedly while a certain condition prevails. In some 
implementations, no test is made to discover whether the condition prevails until the loop has 
been executed once. 

machine language 
A language that is used directly by a machine. 


machine-readable medium 
A medium that can convey data to a given sensing device. 


mask 
A pattern of characters used to control the retention or elimination of portions of another pattern 
of characters. To use a pattern of characters to control the retention or elimination of portions 
of another pattern of characters. 


master file 
A file which is used as an authority in a given job and which is relatively permanent, even though 
its contents may change. 


memory 
See main storage. 


merge 
To combine the items of two or more sets that are each in the same given order into one set 
in that order. 


minuend 
In subtraction, the number or quantity from which another number or quantity is subtracted. 
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mnemonic symbol 
A symbol chosen to assist the human memory; for example, an abbreviation such as "“mpy” for 
“multiply” . 


module 
A program unit that is discrete and identifiable with respect to compiling, combining with other 
units, and loading: for example, the input to and output from, an assembler, compiler, or 
executive routine. 


modulo-n counter 
A counter in which the number represented reverts to zero in the sequence of counting after 
reaching a maximum value of n — 1. 


multifile-id 
See family name. 


multiplicand 
In a multiplication operation, the factor that is multiplied by another number or quantity. 


multiplier 
In multiplication, the number or quantity by which the multiplicand is multiplied. 


multiprocessing 
A mode of operating a multiprocessor that provides for the parallel processing of two or more 
computer programs. Pertaining to the simultaneous execution of two or more computer programs 
or sequences of instructions by a computer or computer network. 


multiprocessor 
A computer employing two or more central processing units under integrated control. 


multiprogramming 
A mode of operation that provides for the interleaved execution of two or more computer pro- 
grams by a single central processing unit. Pertaining to the concurrent execution of two or more 
computer programs by a computer. 


n-ary 
Pertaining to a selection, choice, or condition that has n possible different values or states. 


negate 
To perform the operation of negation. 


negation 
A boolean operation the result of which has the boolean value opposite to that of the operand. 


nest 
To embed procedures or DO-groups into other procedures or DO-groups at a different hierarchi- 
cal level such that the different levels can be performed or accessed recursively. 


no-op 
No-operation instruction. 


no-operation instruction 


An instruction whose execution causes the computer to do nothing and then proceed to the next 
instruction to be executed. 
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NOR 
A logic operator having the property that if P is a statement, Q is a statement, R is a statement, 
..., then the NOR of P, Q, R, ... is TRUE if all statements are FALSE, FALSE if a least one 
statement is TRUE. 


NOT 
A logic operator having the property that if P is a statement, then NOT of P is TRUE if P is 
FALSE, FALSE if P is TRUE. 


notation 
A set of symbols, and the rules for their use in representation of data. 


null string 
A string containing no entity. 


number . 
A mathematical entity that indicates quantity or amount of units. 


numeral 
A. discrete representation of a number. 


numeric 
Pertaining to data or to physical quantities represented by numerals. 


numeric data 
Data represented by numerals. 


object code 
Output from a compiler or assembler which is itself executable machine code or is suitable for 
processing to produce executable machine code. 


object program 
A fully compiled or assembled program that is ready to be loaded into the computer. 


octet 
A byte composed of eight binary elements. 


operand 
An entity to which an operation is applied. That which is operated upon. An operand is usually 
identified by an address part of an instruction. 


operating system 
Software that controls the execution of computer programs and provides scheduling, debugging, 
input-output control, accounting, compilation, storage assignment, data management, and other 
related services. 


operation 


1, A well-defined action that, when applied to any permissible combination of known entities, 
produces a new entity. 

2. A defined action, namely, the act of obtaining a result from one or more operands in accor- 
dance with a rule that completely specifies the result for any permissible combination of oper- 
ands. 

3. A program step undertaken or executed by a computer. 

4. The event or specific action performed by a logic element. 
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operation code 
A code used to represent the operations of a computer. 


operator 


1. A symbol that represents the action to be performed in a mathematical operation. In the de- 
scription of a process, that which indicates the action to be performed on operands. 
2. A person who operates a machine. 


operator console 
A functional unit containing devices that are used for communication between a computer 
operator and an automatic data processing system. 


OR 
A logic operator having the property that if P is a statement, Q is a statement, R is statement, 
... then the OR of P, Q, R, ... is TRUE if at least one statement is TRUE, FALSE if all state- 
ments are FALSE. 

output 


Pertaining to a device, process, or channel involved in an output process, or to the data or states 
involved in an output process. 


output area 
An area of storage reserved for output. 


output data 
Data being delivered or to be delivered from a device or from a computer program. 


overlay 


1. In a computer program, a segment that is not permanently maintained in internal storage. 

2. The technique of repeatedly using the same areas of internal storage during different stages 
of a program. 

3. In the execution of a computer program, to load a segment of the computer program in a 
storage area previously occupied by parts of the computer program that are not currently 
needed. 


padding 
A technique that incorporates fillers in data. 


page 
A block of instructions, or data, or both, that can be located in main storage or in auxiliary 
storage. Segmentation and loading of these blocks is automatically controlled by a computer. 


parameter 
A variable that is given a constant value for a specified application that denotes the application. 


parity bit 
A check bit appended to an array of binary digits to make the sum of all the binary digits, includ- 
ing the check bit, always odd or always even. 


parity check 


A check that tests whether the number of ones (or zeros) in an array of binary digits is odd or 
even. 
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pass 
One cycle of processing a body of data. 


patch 
To make an improvised modification. To modify a routine in an expedient way. 


pointer 
An identifier that indicates the location of an item of data. 


position 
In a string, each location that may be occupied by a character or binary element and identified 
by a serial number. 


process 
A course of events that occur according to an intended purpose or effect. A systematic sequence 
of operations to produce a specified result. 


processor 
A computer program that performs functions such as compiling, assembling, and translating for 
a specific programming language. 


product 
The number or quantity that results from multiplication. 


program 


1. A schedule or plan that specifies actions that may or may not be taken. 
2. To design, write, and test computer programs. 


program execution time 
The interval during which the instructions of an object program are executed. 


program library 
An organized collection of computer programs that are sufficiently documented to allow them 
to be used by persons other than their authors. 


programmer 
A person who designs, writes, and tests computer programs. 


programming 
The designing, writing, and testing of computer programs. 


programming language 
An artificial language established for expressing computer programs. 


pushdown list 
A list that is constructed and maintained so that the next item to be retrieved is the most recently 
stored item in the list, for example last-in-first-out (LIFO). Synonymous with stack. 


pushdown storage 


A storage device that handles data in such a way that the next item to be retrieved is the most 
recently stored item still in the storage device; for example, last-in-first-out (LIFO). 
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pushup list 
A list that is constructed and maintained so that the next item to retrieved is the earliest stored 
item still in the list, for example, first-in-first-out (FIFO). 


pushup storage 
A storage device that handles data in such a way that the next item to be retrieved is the earliest 
stored item still in the storage device; for example, first-in-first-out (FIFO). 


qualified name 
A data name explicitly accompanied by a specification of the class to which it belongs in a 
specified classification system. 


queued access method 
Any access method that synchronizes the transfer of data between the computer program using 
the access method and input-output devices, thereby minimizing delays for input-output 
operations. 


quotient 
The number or quantity that results from dividing the dividend by the divisor. 


railroad syntax 
A technique used to show how syntactically valid statements can be constructed. 


random access 
An access mode in which specific logical records are obtained from or placed into a mass storage 
file in a nonsequential manner. 


range 


1. The set of values that a quantity or function may take. 
2. The difference between the highest and lowest value that a quantity or function may assume. 


read 
To acquire or to interpret data from a storage device, from a data medium, or from another 
source. 


reading 
The acquisition or interpretation of data from a storage device, from a data medium, or from 
another source. 


real address 
The address of an actual storage location in real storage. 


real time 


1, Pertaining to the actual time during which a physical process occurs. 

2. Pertaining to the performance of a computation during the actual time that the related 
physical process occurs, in order that results of the computation can be used in guiding the 
physical process. 
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real-time processing 


1. A mode of operation of a data processing system when performing real-time jobs. 

2. The manipulation of data that are required or generated by some process while the process 
is in Operation; usually the results are used to influence the process, and perhaps related pro- 
cesses, while it is occurring. 


record 
A. collection of related data or words as a unit; for example, in stock control, each invoice could 
constitute one record. 


record layout 
The arrangement and structure of data or words in a record including the order and size of the 
components of the record. 


record length 
The number of characters forming a record. 


recursive routine 
A routine that may be used as a routine of itself, calling itself directly or being called by another 
routine, one that it itself has called. The use of a recursive routine or computer program usually 
requires the keeping of records of the status of its unfinished uses in, for example, a pushdown 
list. 


recursive subroutine 
A recursive subroutine that may be used as a subroutine of itself calling itself directly or being 
called by another subroutine, but one that it has called. The use of a recursive subroutine or 
computer program usually requires the keeping of records of the status of its unfinished uses in, 
for example, a pushdown list. 


re-entrant code 
A segment of object code that may be entered repeatedly and may be entered before .any prior 
executions of the same segment of object code have been completed, and subject to the require- 
ment that neither its external program parameters nor any instructions are modified during execu- 
tion. A re-entrant segment of object code may be used simultaneously by more than one com- 
puter program simultaneously. 


re-entrant program 
A computer program that may be entered repeatedly and may be entered before any prior execu- 
tions of the same computer program have been completed, and subject to the requirement that 
neither its external program parameters nor any instructions are modified during execution. A 
re-entrant program may be used simultaneously by more than one computer program. 


re-entrant routine 
A routine that may be entered repeatedly and may be entered before any prior executions of the 
same routine have been completed, and subject to the requirement that neither its external pro- 
gram parameters nor any instructions are modified during execution. A re-entrant routine may 
be used simultaneously by more than one computer program. 


re-entrant subroutine 
A subroutine that may be entered repeatedly and may be entered before any prior executions of 
the same subroutine have been completed, and subject to the requirement that neither its external 
program parameters nor any instructions are modified during execution. A re-entrant subroutine 
may be used by more than one computer program simultaneously. 
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re-entry point 
The address or the label of the instruction at which the computer program that called a subrou- 
tine is re-entered from the subroutine. 


register 
In a computer, a storage device usually intended for some special purpose, capable of storing 
a specified amount of data such as a bit or a word. 


relative address 
An address expressed as a difference with respect to a base address. 


relocatable address 
An address that is adjusted when the computer program containing it is relocated. 


relocate 
To move a computer program or part of a computer program, and to adjust the necessary ad- 
dress references so that the computer program can be executed after being moved. 


reserved word 
A word of a source language having meaning fixed by rules of that language and which cannot 
be altered for the convenience of any one computer program expressed in the source language. 
Computer programs expressed in the source language may be prohibited from using reserved 
words in other contexts. 


reset 
To cause a counter to take the state that corresponds to a specified initial number. 


restart 
The resumed execution of a computer program that uses data recorded at a checkpoint. 


result 
An entity produced by the performance of an operation. 


return 
With a subroutine, to bind a variable in the computer program that called the subroutine or to 
effect a link to the computer program that called the subroutine. 


right-justify 


1. To shift the contents of a register so that the character at the right-hand end of the data within 
the register is moved to a specified position in the register. 

2. To control the positions of characters on a page so that the right-hand margin of printing 
is regular. 

3. To align characters horizontally so that the rightmost character of a string is in a specified 
position. 


roll-in 
To restore in main storage, data or one or more computer programs that were previously rolled 
out. 


roll-out 


To transfer data or one or more computer programs from main storage to auxiliary storage for 
the purpose of freeing main storage for another use. 
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round 
To delete or omit one or more of the least significant digits in a positional representation and 
to adjust the part retained according to a specified rule. The purpose of rounding is usually to 
limit the precision of the numeral or to reduce the number of characters in the numeral, or to 
do both. 


routine 
An ordered set of instructions that may have some general or frequent use. 


run 


1. A single performance of one or more jobs. 
2. A single, continuous performance of a computer program or routine. 


running time 
The elasped time taken for the execution of a computer program. 


scalar 
A quantity characterized by a single number. 


scope 
The scope of a procedure is determined at compile time by the SDL/UPL compiler and is the 
range within a program over which an identifier or procedure identifier can be referenced. 


The scope of an identifier is a direct result of the lexic level of procedures and the storage alloca- 
tion techniques used by the SDL/UPL compiler. The scope of an identifier is that portion of 
the SDL/UPL program which can reference the identifier. 


SDL 
The acronym for Software Development Language. 


search 


1. The examination of a set of items for one or more items having a given property. 
2. To examine a set of items for one or more having a given property. 


search key 
In the conduct of a search, the data to be compared to a specified part of each item. 


sector 
A part of a track or band on a magnetic drum, magnetic disk, or disk pack. 


seek 
To selectively position the access mechanism of a direct access device. 


segment 
A self-contained portion of a computer program that may be executed without the entire com- 
puter program necessarily being maintained in internal storage at any one time. 


self-relative address 
A relative address that uses the address of the instruction in which it appears as the base address. 


self-relative addressing 
A method of addressing in which the address part of an instruction contains a self-relative ad- 
dress. 
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semantics 


1. The relationships of characters or groups of characters to their meanings, independent of the 
manner of their interpretation and use. 
2. The relationships between symbols and their meanings. 


sequence 


1. A series of items that have been sequenced. / 
2. An arrangement of items according to a specified set of rules. For example, items arranged 
alphabetically, numerically, or chronologically. . 


serial access 


1. The facility to obtain data from a storage device or to enter data into a storage device in such 
a way that the process depends on the location of that data and on a reference to data previ- 
ously accessed. 

2. Pertaining to the sequential or consecutive transmission of data to or from storage. 


set 
1. A finite or infinite number of objects of any kind, of entities, or of concepts, that have a 
given property or properties in common. 
2. To cause a counter to take the state corresponding to a specified number. 
3. To place a storage device into a specified state, usually other than that denoting zero. 
sign bit 


A bit or a binary element that occupies a sign position and indicates the algebraic sign of the 
number represented by the numeral with which it is associated. 


sign character 
A character that occupies a sign position and indicates the algebraic sign of the number repre- 
sented by the numeral with which it is associated. 


sign digit 
A digit that occupies a sign position and indicates the algebraic sign of the number represented 
by the numeral with which it is associated. 


significant digit 
In a numeral, a digit that is needed for a given purpose; in particular, a digit that must be kept 
to preserve a given accuracy or a given precision. 


sign position 
A position, normally located at one end of a numeral, that contains an indicator denoting the 
algebraic sign of the number represented by the numeral. 


skip 


1. To ignore one or more instructions in a sequence of instructions. 
2. To pass over One or more positions on a data medium, for example, to perform one or more 
line feed operations. 


software 
Computer programs, procedures. rules, and other documentation concerned with the operation 
of a data processing system. 
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Software Development Language (SDL) 
A B 1000 programming language that is used to write B 1000 system software. 


source language 
A language from which statements are translated. 


source program 
A computer program expressed in a source language. 


space 


1. A site intended for the storage of data; for example, a site on a printed page or a location 
in a storage medium. 

2. A basic unit of area, usually the size of a single character. 

3. One or more space characters. 

4. To advance the reading or display position according to a prescribed format: for example, to 
advance the printing or display position horizontally to the right or vertically down. 


span 
The difference between the highest and the lowest values that a quantity or function may take. 


special character 
A graphic character in a character set that is not a letter, digit, or a space character. 


stack 
Synonym for pushdown list. 


statements 
Meaningful expressions that describe or specify operations which are complete in the context of 
the programming language. 


step 


1. One operation in a computer routine. 
2. To cause a computer to execute one operation. 


stop instruction 
An exit that specifies the termination of the execution of a computer program. 


storage 


1. The action of placing data into a storage device and retaining it for subsequent use. 
2. The retention of data in a storage device. 


store 


1. To enter data into a storage device or to retain data in a storage device. 
2. In computer programming, to copy data from registers into internal storage. 


string 
A linear sequence of entities such as characters or physical elements. 


structured programming 
The art of combining logically independent algorithms to solve complex problems. 
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subroutine 


1. A sequenced set of statements that may be used in one or more computer programs and at 
one or more points in a computer program. 
2. Part of another routine. 


subroutine call 
The subroutine, in object coding, that performs the call function. 


subscript 
A symbol associated with the name of a set to identify a particular subset or element. 


subset 
A set, each element of which is an element of a specified other set. 


subtrahend 
In a subtraction operation, the number or quantity subtracted from the minuend. 


sum 
The number or quantity that is the result of the addition of two or more numbers or quantities. 


supervisory program 
A computer program, usually part of an operating system, that controls the execution of other 
computer programs and regulates the flow of work in a data processing system. 


supervisory routine 
A routine, usually part of an operating system, that controls the execution of other routines and 
regulates the flow of work in a data processing system. 


switch 


1. In a computer program, a parameter that controls branching and is bound prior to the branch- 
point being reached. 

2. A device or programming technique for making a selection; for example, a toggle, a condition- 
al jump. 


switch indicator 
In computer programming, an indicator that determines or shows the setting of a switch. 


symbol 


1. A conventional representation of a concept or a representation of a concept upon which agree- 
ment has been reached. 
2. A representation of something by reason of relationship, association, or convention. 


syntax 


1. The relationship among characters or groups of characters, independent of their meanings or 
the manner of their interpretation and use. 

. The structure of expressions in a language. 

. The rules governing the structure of a language. 

The relationships among symbols. 


WN 
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system 
In data processing, a collection of people, machines, and methods organized to accomplish a set 
of specific functions. 


table 


1. An array of data, each item of which is unambiguously identified by means of one or more 
arguments. . 

2. A collection of data in which each item is uniquely identified by a label, by its position relative 
to the other items, or by some other means. 


table lookup 
A procedure for obtaining the value corresponding to an argument from a table of values. 


tag 

One or more characters, attached to a set of data that contains information about the set, includ- 

ing its identification. 

task 

1. The basic unit of work from the standpoint of a control program. 

2. In a multiprogramming or multiprocessing environment, a computer program, or portion 
thereof, capable of being specified to the control program as a unit of work. Tasks compete , 
for system resources. 

trace 


A record of the execution of a computer program; it exhibits the sequences in which the instruc- 
tions were executed. 


trailing zero 
In positional notation, a zero in a less significant digit place than the digit place of the least sig- 
nificant nonzero digit of a numeral. 


transfer . 
To send data from one place and to receive the data at another place. 


translate 
To transform data from one language to another. 


transmission 
1. The sending of data to one or more locations or recipients. 
2. The sending of data from one place for reception elsewhere. 


3. In ASCII and data communication, a series of characters including headings and texts. 


transmit 
To send data from one place for reception elsewhere. 


truncate 


To terminate a computational process in accordance with some rule. For example, to end the 
evaluation of a power series at a specified term. 
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truncation 


1. The deletion or omission of a leading or of a trailing portion of a string in accordance with 
specified criteria. 

2. The termination of a computation process, before any final conclusion or natural termination, 
according to specified rules. 


unary operation 
An operation with one and only one operand. 


\ 


unary operator 
An operator that represents an operation on one and only one operand. 


unit 


1. A device having a special function. 
2. A basic element. 
UPL 

The acronym for User Programming Language. 


User Programming Language (UPL) 
A B 1000 computer system language that is a subset of the B 1000 Software Development Lan- 
guage (SDL). 


variable 


1. A character or group of characters which refer to a value and which, in the execution of a 
computer program, correspond to an address. 
2. A quantity that can assume any of the given set of values. 


variable-length record 
Pertaining to a file in which the records need not be uniform in length. 


virtual address 
The address of a storage location in virtual storage. 


virtual memory 
See virtual storage. 


virtual storage 
Space on storage devices which is used as main storage (by the user of) a computing system, and 
in which virtual addresses are mapped into real addresses. The size of the storage is limited only 
by the addressing scheme of the computing system and by the amount of auxiliary storage 
available, rather than by the actual number of main storage locations. 


write 
To make a permanent or temporary recording of data in a storage device or on a data medium. 


writing 
The action of making a permanent or temporary recording of data in a storage device or on a 
data medium. 
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Zero 
In data processing, the number which does not alter the value of another number through addi- 
tion or subtraction. 


zerofill 
To character fill with representation of the character zero. 


zero suppression 
The elimination of zeros from a numeral to which they have no significance. Zeros that have 
no significance include t the left of the nonzero digits in the integral part of a numeral and those 
to the right of the nonzero digits in the fractional part. 
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